16. november 2012 - 16:19Der er
11 kommentarer og 1 løsning
Simpelt program/script til at søge en txt fil igennem for visse forhold
Jeg mangler en der kan hjælpe mig med at lave et simpelt program der kan søge en tekst fil igennem for liner der starter med små forbokstav samt visse tegn. Og hvis det finder det så tilføje et tegn.
Jeg vil gerne betale lidt for hjælpen hvis det kræves men det vil være meget begrænset hvor meget jeg har råd til
Scriptet herunder søger efter linjer der starter med et bogstav i lowercase, og hvor de næste seks tegn er "abc123". Hvis kravet er opfyldt, indsættes en stjerne forrest i linjen.
rfn-linjen angiver filen der søges i, og wfn-linjen filen der indeholder resultatet af kørslen. Dim fso,rf,rfn,wf,wfn,s
rfn="c:\originalfil.txt" wfn="c:\resultatfil.txt"
Set fso = CreateObject("Scripting.FileSystemObject") Set rf = fso.OpenTextFile(rfn, 1) Set wf = fso.OpenTextFile(wfn, 2, True)
Do While Not rf.AtEndOfStream s=rf.ReadLine If (Left(s,1)<>Ucase(Left(s,1))) And (Mid(s,2,6)="abc123") Then s="*" & s wf.WriteLine s Loop
nuckiear - det var også kun lige et forslag, du evt. selv kunne brygge lidt videre på. Du kan også sende mig et par linjer fra filen, samt de nøjagtige ønsker via PM i min profil.
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.