24. juli 2003 - 15:42Der er
10 kommentarer og 1 løsning
Trække data ud fra HTML fil
Hej eksperter Ved ikke om det er den rigtige gruppe, men nu prøver jeg først her. Jeg har en stak HTML-filer, som jeg skal hente data fra, det drejer sig enten om at kunne hente data'ene ud for KODE og NR og smide dem over i en textfil. Eller at man kan tage f.eks. de første 10 linier og smide over i textfil. Til bearbejdelse i excel.
Udpluk af filen: <TR><TD>KODE</TD><TD>ARZ</TD></TR> <TR><TD>Nr</TD><TD>25917</TD></TR>
Hvis filen altid har samme struktur - fx. at der kun står en kode og et Nr på samme linie, kan du jo søge på nr 2 <TD>, og nappe alle de tegn der står indtil </TD> nås.
Endnu nemmere kode og nummer altid har samme længde - så kan du bare tage delstrengen fra karakter X til karakter Y og gemme i en fil...
Kræver naturligvis, at du har VB installeret og har lidt kendskab til programmering. Ethvert andet programmeringssprog kan det samme, så ingen grund til at bruge VB frem for noget andet...
Et alternativ til at programmere er at bruge fx. TextPad, og optage en macro der uger ud i filen. Der er mange forskellige måder at løse problemet på :o)
Nu har jeg fundet noget der kan konvertere til txt-filer. Og så det jeg istedet har brug for er at tage 2 bestemte linier i mine txt-filer og ligge over i en ny fil, kun bestående af disse 2 linier. ( linie17 og line 23 ) Kan det lade sig gøre, altså at åbne filerne og kopiere de to linier over i ny fil og navngive dem fortløbne ?
Til dit andet spørgsmål: Ja, det kan det sagtens. Åben filen, læs linie for linie og hav en tæller du sætter en op for hver linie, så du "ved hvor du er".
Når tælleren er ved det linienummer du ønsker, gemmer du linien som en ny fil. Volià
Det er jo lige til for dig - du ved jo om dataene har samme format hver gang osv. (jf. min første kommentar). Så du kan bedst selv se hvordan man systematisk kan nappe de ønskede delstrenge ud.
Og at skrive til en fil regner jeg med at du kan i forvejen...? Ellers er her lidt kode til at gemme (at læse= Input i stedet for Output):
MinVar = "Denne linie skal skrives til filen" Open App.Path & "\fil.txt" For Output As #1 print #1, MinVar Close #1
Jo tak for koden. Men troede mine filer blev ens efter de var renset ud af HTML-ting via et prg. men åbenbart ikke helt ens. Men måske kan man sige at man vil gemme de første 100 karakterer fra filerne over i ny fil.
Ok. Prøver lige at oprette et nyt spørgsmål, som måske er mere konkret.
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.