- Function tf(str As String)
- Dim d, k, f, x%
- Set d = CreateObject("scripting.dictionary")
- d.Add "B-0-1", "长期存款"
- d.Add "B-0-2", "短期存款"
- d.Add "A-0", "实际成本"
- d.Add "A-1", "实际管理费用"
- d.Add "A-2", "实际主营业务成本"
- d.Add "A-3", "实际营业外成本"
- d.Add "A-4", "实际销售费用"
- d.Add "A-5", "实际财务费用"
- d.Add "A-6", "实际其他"
- d.Add "A-7", "差旅费"
- d.Add "A-8", "办公费"
- d.Add "B-0", "银行存款"
- d.Add "B-1", "现金"
- k = d.keys
- f = d.items
- For i = 0 To d.Count - 1
- If InStr(str, k(i)) Then
- x = x + 1
- End If
- If x = 1 Then tf = Replace(str, k(i), f(i))
- If x > 1 Then tf = Replace(tf, k(i), f(i))
- Next
- End Function
复制代码 |