CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

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

Synes godt om

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

Synes godt om

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

Synes godt om

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 ?

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Excel kurser

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Betinget formatering Af Ninna i Excel	1	23/07/202413:03	23/07/202419:56
Opdater et ark Af lurup i Excel	2	22/07/202422:23	23/07/202416:41
Dato skema Af Ninna i Excel	7	22/07/202414:58	23/07/202419:55
Betinget formatering Af boro23 i Excel	4	22/07/202410:58	I dag 08:01
Problem med beregning af alder udfra cpr-nummer; formel giver talfejl pga. nul i CPR Af HR Excel-bruger i Excel	6	16/07/202416:31	17/07/202408:36

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS