首頁猿問我其實(shí)也不是非要replace函數(shù)...

我其實(shí)也不是非要replace函數(shù)不可，只要可以達(dá)到目的就可以了。

數(shù)據(jù)庫

紅顏莎娜 2023-04-22 22:18:35

大家好：我有一個.ini文件頻率要修改，可以要用VB了，（.ini文件應(yīng)該和文本文件基本是一樣的吧?），文件中"aabb"的字符大概有10個吧，我只需要把第二個"aabb"替代為"vbgood",怎搞?我剛才看了replace函數(shù)的詳細(xì)說明,好象有點(diǎn)頭緒，但是看不太明白。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貢獻(xiàn)1804條經(jīng)驗(yàn) 獲得超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

反對回復(fù) 2023-04-25

千巷貓影

TA貢獻(xiàn)1829條經(jīng)驗(yàn) 獲得超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
經(jīng)過測試，成功通過！