set fso = CreateObject("Scripting.FileSystemObject") set f = fso.OpenTextFile(settingspath, 1) content = f.ReadAll() f.close set f
arrLines = Split(content,vbCrLf) for i = 0 to ubound(arrLines) if ucase(left(ltrim(arrLines(i)),6)) = "RENAME" then ' Så er linien med RENAME fundet... exit for end if next
Hvis du ved hvilken linie det er kan du bare indeksere direkte ned i arrLines (husk at trække en fra linienummeret, da arrLines er nulbaseret).
softspot, det virker fint, og jeg ved lige nøjagtig hvilken linje jeg skal læse, så jeg dropper bare for løkken og skifter i ud med linje nummeret. men lav lige et svar så du kan få dine point og tak for hjælpen
Det ser ud til, at du har glemt et 'r' i kommandoen?
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.