Question

VB如何计算txt文档一行有多少字符?

RT~
请给一个清楚一点点的程序~ ^_^
菜鸟在这里谢谢您啰~
(同是在为祖国计算机事业做贡献~)
比方说我打算一个一个的修改1.txt的第二行的字,如何挺前知道它在哪里结尾哩?
我用了个for语句,for a=1 to 8,如果这一行的字超过了8个就出错了~这该如何改哩?

Answer 1

在VB中,Len()函数是将英文字符或汉字文符都当成一个字符对待,而LenB()函数是将英文字符或汉字文符都当成两个字符对待.这样的说法应该没有错吧.请看下面一个函数:作用是计算中英文混合的字符个数(英文算一个,中文算两个),
Public Function CharLen(ByVal paraStr As String) As Long
CharLen=LenB(StrConv(paraStr,vbFromUnicode))
End Function
=================================================
Dim a As String
a = "<ABCD>(#str1)</ABCD>(#strA)<EEE>(#strB)</EEE>"
a = Replace(Replace(Replace(a, "(#str1)", "HEHE"), "(#strA)", "HAHA"), "(#strB)", "HEIHEI")
MsgBox a