Jepp :D Tog bort if cint-satsen! Korrekt? :)
Hantera textfil - Ta bort = InStr(rad,"ord")
27 svar · 1 117 visningar · startad av oskars · sida 2 av 2
Frågan, 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 frågan i sin helhet →
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! :r
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