dim s as string,stmp as string open "d:\test.txt" for input as #1 do until eof(1) line input #1,stmp s=s+stmp loop close #1 s=replace(s,"wq34=2","wq34=abc") open "d:\test.txt" for output as #1 print #1,s close #1
dim stmp as string open "d:\in.txt" for input as #1 open "d:\out.txt" for output as #2 do until eof(1) line input #1,stmp if left(stmp,5)="wq34=" then stmp=left(stmp,5) & "abc" end if print #2,stmp loop close #1 close #2 kill "d:\in.txt" name "d:\out.txt" as "c:\in.txt"
把上面的改一下不就OK了Dim s As String, stmp As String Open "d:\test.txt" For Input As #1Do Until EOF(1) Line Input #1, stmp If InStr(stmp, "wp34=") > 0 Then stmp = "wq34=abc" End If
s = s + stmp
Loop Close #1 Open "d:\test.txt" For Output As #1 Print #1, s Close #1
全部读出来
Replace
就是效率慢点
open "d:\test.txt" for input as #1
do until eof(1)
line input #1,stmp
s=s+stmp
loop
close #1
s=replace(s,"wq34=2","wq34=abc")
open "d:\test.txt" for output as #1
print #1,s
close #1
open "d:\in.txt" for input as #1
open "d:\out.txt" for output as #2
do until eof(1)
line input #1,stmp
if left(stmp,5)="wq34=" then
stmp=left(stmp,5) & "abc"
end if
print #2,stmp
loop
close #1
close #2
kill "d:\in.txt"
name "d:\out.txt" as "c:\in.txt"
Open "d:\test.txt" For Input As #1Do Until EOF(1)
Line Input #1, stmp
If InStr(stmp, "wp34=") > 0 Then
stmp = "wq34=abc"
End If
s = s + stmp
Loop
Close #1
Open "d:\test.txt" For Output As #1
Print #1, s
Close #1