Avatar billede lundjepsen Praktikant
06. april 2007 - 12:21 Der er 3 kommentarer

Import af tekst fil/ tekststreng

Hej.
Har et problem med en import af en txt fil. Problemet er at der ikke er andet adskillelse end mellemrum imellem teksten, så når den importeres til excel bliver det til een stor linje (horisontal). Ville gerne adskille teksten med linjeskift ved en bestemt tekst ( Modtog )
Teksten er en rapportering og ser sådan ud (uden linjeskift):

Modtog ingen data fra: 96166450  Bog Ålbæk........................... FRA: 01-01-2000 00.00.00 TIL: 05-04-2007 23.59.59 Modtog ingen data fra: 96378400  Bingo............................. FRA: 01-01-2000 00.00.00 TIL: 05-04-2007 23.59.59 Modtog ingen data fra: 96404094 Centrum..........................

o.s.v.
Kunne godt tænke mig at den blev opstillet noget lign. dette:

Modtog ingen data fra: 96166450  Bog Ålbæk........................... FRA: 01-01-2000 00.00.00 TIL: 05-04-2007 23.59.59

Modtog ingen data fra: 96378400  Bingo............................. FRA: 01-01-2000 00.00.00 TIL: 05-04-2007 23.59.59

Modtog ingen data fra: 96404094 Centrum..........................


Håber der er nogen der kan hjælpe ?

Mvh LundJepsen
Avatar billede excelent Ekspert
06. april 2007 - 16:33 #1
Marker listen og kør subben
OBS ny liste skrives i kolonne B

Sub xSplit()
Dim Fandt(10), x, y, t

For Each x In Selection
y = 0
For t = 1 To Len(x)
If Mid(x, t, 6) = "Modtog" Then y = y + 1: Fandt(y) = t
Next
Fandt(y + 1) = Len(x)

For t = 1 To y
rk = Cells(65500, 2).End(xlUp).Row + 1
Cells(rk, 2) = Mid(x, Fandt(t), Fandt(t + 1) - Fandt(t) + 0)
Next
Next
End Sub
Avatar billede lundjepsen Praktikant
11. april 2007 - 19:03 #2
Hej igen er der en mulighed for at stoppe den ind i en import makro som denne
??

Range("F32").Select
    With Selection.QueryTable
        .Connection = "TEXT;c:\*.txt"
        .TextFilePlatform = 10000
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = True
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = True
        .TextFileColumnDataTypes = Array(1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub


Mvh Lundjepsen
Avatar billede excelent Ekspert
11. april 2007 - 19:38 #3
hvis makroen xSplit eller virker så skulle det nok være muligt
har du prøvet den ?
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester