文本文件对不齐,怎么办?
基金代码 基金名称 基金净值 累计净值
240002 宝康灵活配置 1.6029 3.1429
240001 宝康消费品 1.2678 2.9255
240003 宝康债券 1.2060 1.3760
213003 宝盈策略增长 1.3331 1.3331
213002 宝盈泛沿海 0.9655 2.5238
213001 宝盈鸿利收益 1.0520 2.6920
050008 博时第三产业 1.0970 2.3090
050201 博时价值贰号 1.4820 1.9020
050001 博时价值增长 1.4080 3.1280
050004 博时精选股票 1.4558 2.8458
代码:
...
For i = 0 To UBound(x)+1
myStr = Split(x(i), vbTab)
x(i) = Space(1) & Trim(myStr(1)) & Space(8 - Len(Trim(myStr(1)))) & Trim(myStr(2)) & Space(18 - Len(Trim(myStr(2)))) & Trim(myStr(3)) & Space(10 - Len(Trim(myStr(3)))) & Trim(myStr(8))
lines = lines & x(i) & vbCrLf
Next i
...
我只道是中文的问题,如何解决?
[解决办法]
把Len函数换成LenB函数就可以了
Len( "我123 ") =4
lenb(strconv( "我123 ",vbFromUnicode)) =5
