AiTechEye
/
Minetest-old-call-update-vbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixed indata exceeds error

master
AiTechEye 2018-09-13 12:32:13 +02:00 committed by GitHub
parent 581cba4e4a
commit 5fee8085c5
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
Minetest old call update.vbs
View File

@ -19,19 +19,21 @@ sub folder(p)
next
end sub
sub file(a)
f=sf.OpenTextFile(a.path,1).readall
cfiles=cfiles+1
changes=""
f2=f
for i=0 to ubound(rep) step 2
if InStr(f,rep(i))>0 then
changes=changes & rep(i) & " "
f2=Replace(f2,rep(i),rep(i+1))
if not sf.OpenTextFile(a.path,1).AtEndOfStream then
f=sf.OpenTextFile(a.path,1).readall
cfiles=cfiles+1
changes=""
f2=f
for i=0 to ubound(rep) step 2
if InStr(f,rep(i))>0 then
changes=changes & rep(i) & " "
f2=Replace(f2,rep(i),rep(i+1))
end if
next
if changes <> "" then
sf.CreateTextFile(a).writeline(f2)
text=text & right(a,len(a)-len(pp)-1) & " " & changes & vbCrLf
end if
next
if changes <> "" then
sf.CreateTextFile(a).writeline(f2)
text=text & right(a,len(a)-len(pp)-1) & " " & changes & vbCrLf
end if
end sub