如何把一个多行文本文件中某一些指定字符串后面的字符串替换掉???
比如:
TitleA=XXX
TitleB=YYY
TitleC=ZZZ
我想把文中所有的"TitleB="后面的"YYY"改为其它内容,但是YYY的字符长度是不确定的,请问有办法实现吗?
或者有什么更好的方法?请高手赐,多谢!!
小弟是一个VB新手,近日在编程过程中遇到一个问题: 如何把一个多行文本文件中某一些指定字符串后面的字符串替换掉??? 比如: TitleA=XXX TitleB=YYY TitleC=ZZZ 我想把文中所有的"TitleB="后面的"YYY"改为其它内容,但是YYY的字符长度是不确定的,请问有办法实现吗? 或者有什么更好的方法?请高手赐,多谢!! -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 要先找到"TitleB=" 假设 控件名为 T1 Dim x, y, i As Long Dim A As String
For x = 1 To Len(T1.Text) b = Mid(T1.Text, x, 7) If b = "TitleB=" Then y = x + 6 Exit For End If Next x For i = 1 To Len(T1.Text) If Mid(T1.Text, i, 7) = "TitleC=" Then i = Len(T1.Text) - i + 1 A = Left(T1.Text, y) & " 需要替换的字符 " & Right(T1.Text, i) T1.Text = A Exit For End If Next i
晕那你要先读取文件,在保存在 T1.text Dim x, y, i As Long Dim A As String
For x = 1 To Len(T1.Text) b = Mid(T1.Text, x, 7) If b = "TitleB=" Then y = x + 6 For i = 1 To Len(T1.Text) If Mid(T1.Text, i, 7) = "TitleC=" Then i = Len(T1.Text) - i + 1 A = Left(T1.Text, y) & " 需要替换的字符 " & Right(T1.Text, i) T1.Text = A Exit For End If Next i End If Next x 也很方便完成,可以到达全文转换目的
[此贴子已经被作者于2005-8-11 9:56:03编辑过]