Jepp 
Tog bort if cint-satsen! Korrekt? 
Hantera textfil - Ta bort = InStr(rad,"ord")
27 svar · 1 123 visningar · startad av oskars · sida 2 av 2
Trådstarten, av oskars
Hej, håller på att få fnatt på en textfil som jag har här! Jag vill göra ett script som tar bort alla rader i min textfil som innehåller t.ex ordet "tv" osv... Tänkte mig formuläret så här enkelt: <form name="do" method="post" action="default.asp?do=deleteLines"> Välj textfil: <input name="textfile" type="file" /><br /> Välj sträng att leta efter: <input name="string" type="text" /><
Läs hela trådstarten →
ja
Det
if cint(ubound(arrRows)-1) <> cint(i) then str = str & vbCrLf
Gör att den lägger in vbcrlf(radbrytning) på alla rader förutom den sista... orkar inte fixa en buggfri version på den ännu.. så du får leva med det
function getText(arrRows,ord)
for i = lbound(arrRows) to ubound(arrRows)
if instr(ArrRows(i),ord) then str = str & "" else str = str & ArrRows(i)
if cint(ubound(arrRows)-1) <> cint(i) AND (NOT instr(ArrRows(i),ord)) then str = str & vbCrLf
next
getText = trim(str)
end function
Ok ok! Jag har inte testat den sista versionen du postade i inlägg #23 än! Ska göra det imorgon!
Det är verkligen jättebra! Jag kopierar det som scriptet skriver ut och klistrar in det i min textfil! Det är perfekt!
Ska testa din uppdaterade funktion imorgon som sagt
gick det?
Ska testa ska testa Ursäkta att jag är så långsam! 
Fungerar enligt mig utmärkt =) =) Tack tack tack!
men vad är skillnaden på den sista du postade, och sen näst sista?
tack igen! Snart kommer väl snön?
Fixar "mellanrumen"
dvs:
hej
på
dig
vi vill ta bort "på" innan blev det:
hej
dig
nu ska den skriva
hej
dig