VBA tekstsortering

hej

skal indsættes som modul i word eller lign.

Function RensLinie(strTekst)

If Len(strTekst) > 0 Then
    tempLineArray = Split(strTekst, vbTab)
    RensLinie = tempLineArray(0) & "," & tempLineArray(1)
End If

End Function

Sub ReadTextFile()
    Dim strContent
   
    'henter data fra tekstfil
    Open "c:\test.txt" For Input As #1
        strContent = Input$(LOF(1), 1)
    Close #1
   
    'danner array og splitter ved hvert linieskift
    temparray = Split(strContent, vbCrLf)
   
    'renser hver linie for snavs du ikke skal bruge
    For i = LBound(temparray) To UBound(temparray)
        temparray(i) = RensLinie(temparray(i))
    Next
   
    'skriver ny fil med renset output
    Open "c:\test1.txt" For Output As #1
        For i = LBound(temparray) To UBound(temparray)
            Print #1, temparray(i)
        Next
    Close #1
End Sub


Go weekend!

/hiks

For hulen da !! I er altså nogle røvere her i VB kategorien :)))

Udsnit af filen efter behandling:

2500,Valby
2600,Glostrup
2605,Brøndby
2610,Rødovre
2620,Albertslund
2625,Vallensbæk
2630,Taastrup
2633,Taastrup
2635,Ishøj
2640,Hedehusene
2650,Hvidovre
2660,Brøndby Strand
2665,Vallensbæk Strand

Det er jo perfekt. Tusind tak :)

ja nemli ja!

godt det virker... hehe

/hiks