大家好：我有一個.ini文件頻率要修改，可以要用VB了，（.ini文件應該和文本文件基本是一樣的吧?），文件中"aabb"的字符大概有10個吧，我只需要把第二個"aabb"替代為"vbgood",怎搞?我剛才看了replace函數的詳細說明,好象有點頭緒，但是看不太明白。Replace(expression, find, replacewith[, start[, count[, compare]]]) 以下是全部替代的辦法,尋求替代第二個"aabb"的方法.Open "c:\text1.ini" For Input As #1Open "c:\text2.ini" For Output As #2Dim i As StringDo While Not EOF(1)Line Input #1, ii = Replace(i, "aabb", "vbgood")Print #2, iLoopClose #1Close #2
2 回答
狐的傳說
TA貢獻1804條經驗 獲得超3個贊
dim s2 as string,str1 as string,i as string
Open "c:\text1.ini" For Input As #1
Do While Not EOF(1)
Line Input #1, i
str1 = str1 & i & vbcrlf
Loop
Close #1
s = Split(str1, "aabb")
t = Len(s(1)) + Len(s(0)) + 4
s2 = s2 & Left(str1, t) & "vbgood" & Right(str1, Len(str1) - t - 4)
Open "c:\text2.ini" For Output As #2
Print #2 , s2
close #2
千巷貓影
TA貢獻1829條經驗 獲得超7個贊
Open "c:\text1.ini" For Input As #1
Open "c:\text2.ini" For Output As #2
Dim i As String
Do While Not EOF(1)
Line Input #1, i
If InStr(i, "aabb") <> 0 Then i = Mid(i, 1, InStr(i, "aabb") - 1) & "vbgood" & Mid(i, InStr(i, "aabb") + 4, Len(i))
Print #2, i
Loop
Close #1
Close #2
經過測試，成功通過！
- 2 回答
- 0 關注
- 236 瀏覽
添加回答
舉報
0/150
提交
取消