11. april 2007 - 19:31Der er
18 kommentarer og 1 løsning
Sortering af txt import
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 ) Den skal helst sorteret inden den bliver indsat i excel da den fylder for meget i bredden, så excel melder at der ikke er mere plads.. Har en makro der importer teksen men 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..........................
?? Er det mulig at lave linjeskift på bestemte ord eller sætninger ??
Public Sub ImportOgOmbrydTekst() Dim a, Tekst Open "C:\test\test.txt" For Input As #1 ' ret til din fil og sti Line Input #1, Tekst Close #1 a = Split(Replace(Tekst, "Modtog", "*Modtog"), "*") Range("A1:A" & UBound(a) + 1) = Application.WorksheetFunction.Transpose(a) End Sub
Hej Kabbak. Så er den prøvet af der kommer ikke så meget ind kun den første linje.. "Status fra Telelink Collector" resten væk ...
Txt-filen ser sådan ud eksakt :
Status fra Telelink Collector dato : d 18-03-2007 07.59.05
Log startet d 18-03-2007 05:00:00 -------------------------------------------------------------------- ######### Checker for manglende csv filer.... ######### ######### henter csv / csp filer fra telelink center ######### ######### Checker for manglende csv filer.... ######### ######### henter csv / csp filer fra telelink center ######### ######### Checker for manglende csv filer.... ######### ######### kontrollerer csv filer ######### ######### Checker for manglende csv filer.... ######### ######### Checker for manglende csv filer.... ######### ######### henter csv / csp filer fra telelink center ######### ######### Checker for manglende csv filer.... ######### ######### kontrollerer csv filer ######### ######### Checker for manglende csv filer.... ######### ######### Checker for manglende csv filer.... ######### ######### henter csv / csp filer fra telelink center ######### ######### Checker for manglende csv filer.... ######### ######### kontrollerer csv filer ######### ######### Checker for manglende csv filer.... ######### ######### Checker for manglende csv filer.... ######### ######### henter csv / csp filer fra telelink center ######### ######### Checker for manglende csv filer.... ######### ######### kontrollerer csv filer ######### ######### Checker for manglende csv filer.... ######### ######### Checker for manglende csv filer.... ######### ######### henter csv / csp filer fra telelink center ######### ######### Checker for manglende csv filer.... ######### ######### kontrollerer csv filer ######### ######### Checker for manglende csv filer.... ######### -------------------------------------------------------------------- automatisk hentning fejlede i hentning af alle opstillings steder men sætter de allerede hentede csv filer ind -------------------------------------------------------------------- ######### Checker for manglende csv filer.... ######### ------------------- ikke hentet ------------------------ ListView1 32972484 --> Casino Øresund --> 0 -------------------------------------------------------------------- ------------------- ikke hentet ------------------------ tlf_ListBox1 32972484 -------------------------------------------------------------------- ######### indsætter csv filer i database ######### Modtog ingen data fra klubben: 98166050 Bogart Ålborg........................... FRA: 01-01-2000 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 98378800 Buus Bodega............................. FRA: 01-01-2000 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 86558700 Focus Strandshoppen..................... FRA: 21-08-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 86414159 Mariagervejens Kiosk.................... FRA: 13-06-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 49134448 Spar 2 Espergærde....................... FRA: 26-08-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 65910278 Spil O Rama Odense C.................... FRA: 27-11-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 98103102 Spil-O-Rama, Nøresundby................. FRA: 01-01-2000 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 38719236 Tip Top Kiosk........................... FRA: 16-04-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 98190117 Vores Kiosk & Bager.................... FRA: 01-01-2000 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 97764583 Kwik Spar............................... FRA: 27-11-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 86841280 Askehøj Camping......................... FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 75278255 Blåvand Mini Golf....................... FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 75756780 Bryrup Camping.......................... FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 87500498 Christiansborg spillehal................ FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 75136702 Elite Gaming test-værksted.............. FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 36707016 Elite Gaming, Rødovre................... FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 46327952 Elite Spillehal, Møllehusvej............ FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 86301384 Grenå Strand Camping.................... FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 32504019 Havnecafeen............................. FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 98131396 John F. Spillehal....................... FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 33120765 Maxim Bar............................... FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 75801518 Stjernegrillen,Tørring.................. FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 54131920 Super Bowling Marienlyst................ FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 32940149 Sylten.................................. FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 75781292 Vestbirk Camping........................ FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 74584317 Årøgård kro og cafe..................... FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 98554107 Ø.Doense kro............................ FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 97723612 Toldboden............................... FRA: 10-01-2007 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 74631620 Musik Cafeen............................ FRA: 17-01-2007 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 49216367 Café Spil & Sport Aps............... FRA: 05-02-2007 00.00.00 TIL: 18-03-2007 23.59.59 32972484.csv blev ikke fundet: C:\spocollector\csv\32972484.csv 32972484.csp blev ikke fundet: C:\spocollector\csv\32972484.csp 32972484.csv blev ikke fundet: C:\spocollector\csv\32972484.csv 32972484.csp blev ikke fundet: C:\spocollector\csv\32972484.csp 32972484.csv blev ikke fundet: C:\spocollector\csv\32972484.csv 32972484.csp blev ikke fundet: C:\spocollector\csv\32972484.csp 32972484.csv blev ikke fundet: C:\spocollector\csv\32972484.csv 32972484.csp blev ikke fundet: C:\spocollector\csv\32972484.csp Modtog ingen data fra klubben: 33243734 Elite Spillehal Vester F Vej............ FRA: 10-02-2007 00.00.00 TIL: 18-03-2007 23.59.59 ######### Checker for manglende csv filer.... ######### ######### analyser data ######### ----------------------------------------------------------------
den består jo også af flere dele, det du spurgte om, er faktisk kun den sidste del, kan du nøjes med den, eller skal du have alt.
ser filen altid sådan ud, eller er de forskellige fra gang til gang, her tænker jeg på ledetekster som,
------------------- ikke hentet ------------------------ tlf_ListBox1 32972484 -------------------------------------------------------------------- et f.eks. tlf nummeret altid det samme
denne tager sidste del, men jeg må desværre korte linierne af, den anden sidste er for lang
Public Sub ImportOgOmbrydTekst() Dim A, Tekst, I Open "C:\test\test.txt" For Input As #1 Do Line Input #1, Tekst A = Split(Replace(Tekst, "Modtog", "*Modtog"), "*") If A(0) = "######### indsætter csv filer i database ######### " Then Exit Do Loop Until EOF(1) Close #1 For I = 0 To UBound(A) If Len(A(I)) > 250 Then A(I) = Left(A(I), 250) & "->>" ' afkorter lange linier Next Range("A1:A" & UBound(A) + 1) = Application.WorksheetFunction.Transpose(A) End Sub
hej kabbak. ville være rart om jeg kunne udskille hele teksten.. Det er lidt vanskelig at udskille Modtog-strengen. Kan godt se at den virker, lidt.. der kommer 24 forskellige modtog ud af forsøget (der er mange flere?) Kunne også være rart om det var mulig at der var celle skift imellem mellemrum eller kollon":" på hver række.
Standard udtryk i tekstfilen er :
Status fra Telelink Collector dato : Log startet ######### indsætter csv filer i database #########
######### Checker for manglende csv filer.... ######### Modtog ingen data fra klubben: kr ind er steget med mere end 2000 (disse er adskilt af:--------)
Status fra Telelink Collector dato : d 18-03-2007 07.59.05
Log startet d 18-03-2007 05:00:00 -------------------------------------------------------------------- ######### Checker for manglende csv filer.... ######### ######### henter csv / csp filer fra telelink center ######### ######### Checker for manglende csv filer.... ######### ######### henter csv / csp filer fra telelink center ######### ######### Checker for manglende csv filer.... ######### ######### kontrollerer csv filer ######### ######### Checker for manglende csv filer.... ######### ######### Checker for manglende csv filer.... ######### ######### henter csv / csp filer fra telelink center ######### ######### Checker for manglende csv filer.... ######### ######### kontrollerer csv filer ######### ######### Checker for manglende csv filer.... ######### ######### Checker for manglende csv filer.... ######### ######### henter csv / csp filer fra telelink center ######### ######### Checker for manglende csv filer.... ######### ######### kontrollerer csv filer ######### ######### Checker for manglende csv filer.... ######### ######### Checker for manglende csv filer.... ######### ######### henter csv / csp filer fra telelink center ######### ######### Checker for manglende csv filer.... ######### ######### kontrollerer csv filer ######### ######### Checker for manglende csv filer.... ######### ######### Checker for manglende csv filer.... ######### ######### henter csv / csp filer fra telelink center ######### ######### Checker for manglende csv filer.... ######### ######### kontrollerer csv filer ######### ######### Checker for manglende csv filer.... ######### -------------------------------------------------------------------- automatisk hentning fejlede i hentning af alle opstillings steder men sætter de allerede hentede csv filer ind -------------------------------------------------------------------- ######### Checker for manglende csv filer.... ######### ------------------- ikke hentet ------------------------ ListView1 32972484 --> Casino Øresund --> 0 -------------------------------------------------------------------- ------------------- ikke hentet ------------------------ tlf_ListBox1 32972484 -------------------------------------------------------------------- ######### indsætter csv filer i database ######### Modtog ingen data fra klubben: 98166050 Bogart Ålborg........................... FRA: 01-01-2000 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 98378800 Buus Bodega............................. FRA: 01-01-2000 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 86558700 Focus Strandshoppen..................... FRA: 21-08-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 86414159 Mariagervejens Kiosk.................... FRA: 13-06-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 49134448 Spar 2 Espergærde....................... FRA: 26-08-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 65910278 Spil O Rama Odense C.................... FRA: 27-11-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 98103102 Spil-O-Rama, Nøresundby................. FRA: 01-01-2000 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 38719236 Tip Top Kiosk........................... FRA: 16-04-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 98190117 Vores Kiosk & Bager.................... FRA: 01-01-2000 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 97764583 Kwik Spar............................... FRA: 27-11-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 86841280 Askehøj Camping......................... FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 75278255 Blåvand Mini Golf....................... FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 75756780 Bryrup Camping.......................... FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 87500498 Christiansborg spillehal................ FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 75136702 Elite Gaming test-værksted.............. FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 36707016 Elite Gaming, Rødovre................... FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 46327952 Elite Spillehal, Møllehusvej............ FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 86301384 Grenå Strand Camping.................... FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 32504019 Havnecafeen............................. FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 98131396 John F. Spillehal....................... FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 33120765 Maxim Bar............................... FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 75801518 Stjernegrillen,Tørring.................. FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 54131920 Super Bowling Marienlyst................ FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 32940149 Sylten.................................. FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 75781292 Vestbirk Camping........................ FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 74584317 Årøgård kro og cafe..................... FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 98554107 Ø.Doense kro............................ FRA: 24-12-2006 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 97723612 Toldboden............................... FRA: 10-01-2007 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 74631620 Musik Cafeen............................ FRA: 17-01-2007 00.00.00 TIL: 18-03-2007 23.59.59 Modtog ingen data fra klubben: 49216367 Café Spil & Sport Aps............... FRA: 05-02-2007 00.00.00 TIL: 18-03-2007 23.59.59 32972484.csv blev ikke fundet: C:\spocollector\csv\32972484.csv 32972484.csp blev ikke fundet: C:\spocollector\csv\32972484.csp 32972484.csv blev ikke fundet: C:\spocollector\csv\32972484.csv 32972484.csp blev ikke fundet: C:\spocollector\csv\32972484.csp 32972484.csv blev ikke fundet: C:\spocollector\csv\32972484.csv 32972484.csp blev ikke fundet: C:\spocollector\csv\32972484.csp 32972484.csv blev ikke fundet: C:\spocollector\csv\32972484.csv 32972484.csp blev ikke fundet: C:\spocollector\csv\32972484.csp Modtog ingen data fra klubben: 33243734 Elite Spillehal Vester F Vej............ FRA: 10-02-2007 00.00.00 TIL: 18-03-2007 23.59.59 ######### Checker for manglende csv filer.... ######### ######### analyser data ######### ----------------------------------------------------------------
---------------------------------------------------------------- kr ind er steget med mere end 2000 43692054 --> VideoExperten --> ORIENT EXPRES --> 000000008bf0 Dato klokken Kr Kr Total Total Veksel Polet Polet Key indhold Indhold - - ind ud ind ud ind ind ud op Polet Sp Mrk - - - - - - - - - - Hopper Hopper 14-03-2007 21.22.00 481.420 357.525 759.033 635.139 234.695 246.725 357.525 117.200 6.660 0 15-03-2007 09.00.00 483.420 359.525 759.033 635.139 236.695 246.725 359.525 117.200 4.660 0 ------------------------------------------------------------------------------------------------------------------------------------------ difference : 2.000 2.000 0 0 2.000 0 2.000 0 -2.000 0 ------------------------------------------------------------------------------------------------------------------------------------------ ----------------------------------------------------------------
---------------------------------------------------------------- kr ind er steget med mere end 2000 43692054 --> VideoExperten --> VIRGINIA CITY --> 000000008c02 Dato klokken Kr Kr Total Total Veksel Polet Polet Key indhold Indhold - - ind ud ind ud ind ind ud op Polet Sp Mrk - - - - - - - - - - Hopper Hopper 13-03-2007 21.24.00 471.411 338.823 726.800 594.212 225.408 246.003 338.823 96.200 7.360 0 14-03-2007 10.00.00 474.611 342.023 726.800 594.212 228.608 246.003 342.023 96.200 4.160 0 ------------------------------------------------------------------------------------------------------------------------------------------ difference : 3.200 3.200 0 0 3.200 0 3.200 0 -3.200 0 ------------------------------------------------------------------------------------------------------------------------------------------ ----------------------------------------------------------------
---------------------------------------------------------------- kr ind er steget med mere end 2000 59279070 --> Mørkøv Spillehal --> ORIENT EXPRES --> 000000000ce0 Dato klokken Kr Kr Total Total Veksel Polet Polet Key indhold Indhold - - ind ud ind ud ind ind ud op Polet Sp Mrk - - - - - - - - - - Hopper Hopper 13-03-2007 22.23.00 2.630.591 1.944.711 4.756.439 4.074.007 808.892 1.821.699 1.944.711 153.000 3.400 0 16-03-2007 11.00.00 2.633.191 1.947.231 4.760.692 4.078.283 809.792 1.823.399 1.947.231 153.000 2.580 0 ------------------------------------------------------------------------------------------------------------------------------------------ difference : 2.600 2.520 4.253 4.276 900 1.700 2.520 0 -820 0 ------------------------------------------------------------------------------------------------------------------------------------------ ----------------------------------------------------------------
---------------------------------------------------------------- kr ind er steget med mere end 2000 75835555 --> Play House Vejle ApS --> VIRGINIA CITY --> 000000008eaf Dato klokken Kr Kr Total Total Veksel Polet Polet Key indhold Indhold - - ind ud ind ud ind ind ud op Polet Sp Mrk - - - - - - - - - - Hopper Hopper 16-03-2007 09.08.00 151.371 112.640 235.746 197.024 55.511 0 0 17.780 1.880 0 17-03-2007 09.56.00 153.652 114.580 239.892 200.830 56.972 0 0 17.780 760 0 ------------------------------------------------------------------------------------------------------------------------------------------ difference : 2.281 1.940 4.146 3.806 1.461 0 0 0 -1.120 0 ------------------------------------------------------------------------------------------------------------------------------------------ ----------------------------------------------------------------
---------------------------------------------------------------- kr ind er steget med mere end 2000 75835555 --> Play House Vejle ApS --> VIRGINIA CITY --> 000000008d91 Dato klokken Kr Kr Total Total Veksel Polet Polet Key indhold Indhold - - ind ud ind ud ind ind ud op Polet Sp Mrk - - - - - - - - - - Hopper Hopper 16-03-2007 09.08.00 180.535 131.200 290.079 240.773 68.775 0 0 21.260 2.000 0 17-03-2007 09.56.00 182.715 132.060 294.059 243.434 70.735 0 0 21.260 1.360 0 ------------------------------------------------------------------------------------------------------------------------------------------ difference : 2.180 860 3.980 2.661 1.960 0 0 0 -640 0 ------------------------------------------------------------------------------------------------------------------------------------------ ----------------------------------------------------------------
---------------------------------------------------------------- kr ind er steget med mere end 2000 86140007 --> Døgnkiosken --> ORIENT EXPRES --> 000000008e83 Dato klokken Kr Kr Total Total Veksel Polet Polet Key indhold Indhold - - ind ud ind ud ind ind ud op Polet Sp Mrk - - - - - - - - - - Hopper Hopper 16-03-2007 11.00.00 223.687 174.040 252.729 203.082 60.907 0 0 16.000 2.440 0 16-03-2007 12.00.00 227.697 178.040 252.739 203.082 63.357 0 0 16.000 0 0 ------------------------------------------------------------------------------------------------------------------------------------------ difference : 4.010 4.000 10 0 2.450 0 0 0 -2.440 0 ------------------------------------------------------------------------------------------------------------------------------------------ ----------------------------------------------------------------
---------------------------------------------------------------- kr ind er steget med mere end 2000 86140007 --> Døgnkiosken --> MIDNIGHTMADNESS --> 000000008b7b Dato klokken Kr Kr Total Total Veksel Polet Polet Key indhold Indhold - - ind ud ind ud ind ind ud op Polet Sp Mrk - - - - - - - - - - Hopper Hopper 16-03-2007 15.00.00 167.957 143.040 203.817 178.900 31.577 0 0 12.080 2.840 0 16-03-2007 16.00.00 171.967 147.040 203.857 178.930 34.427 0 0 12.080 0 0 ------------------------------------------------------------------------------------------------------------------------------------------ difference : 4.010 4.000 40 30 2.850 0 0 0 -2.840 0 ------------------------------------------------------------------------------------------------------------------------------------------ ----------------------------------------------------------------
---------------------------------------------------------------- kr ind er steget med mere end 2000 86420989 --> Super Tips --> ROBOTS --> 000007aba3f1 Dato klokken Kr Kr Total Total Veksel Polet Polet Key indhold Indhold - - ind ud ind ud ind ind ud op Polet Sp Mrk - - - - - - - - - - Hopper Hopper 17-03-2007 19.42.00 288.444 215.340 43.099 32.279 10.360 31.380 24.220 1.920 3.000 0 17-03-2007 21.00.00 290.574 218.280 43.199 33.527 12.470 33.200 27.160 1.920 80 0 ------------------------------------------------------------------------------------------------------------------------------------------ difference : 2.130 2.940 100 1.248 2.110 1.820 2.940 0 -2.920 0 ------------------------------------------------------------------------------------------------------------------------------------------ ----------------------------------------------------------------
---------------------------------------------------------------- kr ind er steget med mere end 2000 97524710 --> Stoppestedet --> MOUNT EVEREST --> 000007ab5466 Dato klokken Kr Kr Total Total Veksel Polet Polet Key indhold Indhold - - ind ud ind ud ind ind ud op Polet Sp Mrk - - - - - - - - - - Hopper Hopper 17-03-2007 19.00.00 1.214.483 890.680 85.459 23.897 171.244 228.940 183.360 109.580 4.000 0 17-03-2007 20.00.00 1.218.196 894.320 85.894 24.157 174.877 232.460 187.000 109.780 640 0 ------------------------------------------------------------------------------------------------------------------------------------------ difference : 3.713 3.640 435 260 3.633 3.520 3.640 200 -3.360 0 ------------------------------------------------------------------------------------------------------------------------------------------ -------------------------------------------------------------------- -------------------------------------------------------------------- Log sluttet d 18-03-2007 07:59:05 --------------------------------------------------------------------
Public Sub ImportOgOmbrydTekst() Dim A, Tekst, I, X Open "C:\test\test.txt" For Input As #1 X = 1 Do Line Input #1, Tekst A = Split(Replace(Tekst, "Modtog", "*Modtog"), "*") If UBound(A) = -1 Then A = Split(Replace(Tekst, "# #", "#*#"), "*") If UBound(A) = -1 Then Cells(X, 1) = Tekst: X = X + 1 Else For I = 0 To UBound(A) If Len(A(I)) > 250 Then A(I) = Left(A(I), 250) & "->>" ' afkorter lange linier Next Range(Cells(X, 1), Cells(X + UBound(A) + 1, 1)) = Application.WorksheetFunction.Transpose(A) X = X + UBound(A) + 2 End If
Loop Until EOF(1) Close #1
Range("A1:A" & UBound(A) + 1) = Application.WorksheetFunction.Transpose(A) End Sub
Public Sub ImportOgOmbrydTekst() Dim A, Tekst, I, X Open "C:\test\test.txt" For Input As #1 X = 1 Do Line Input #1, Tekst Tekst = Replace(Tekst, "# #", "#*#") Tekst = Replace(Tekst, "Modtog", "*Modtog") A = Split(Tekst, "*") If Tekst = "" Or UBound(A) = 0 Then Cells(X, 1) = Tekst: X = X + 1 Else Range(Cells(X, 1), Cells(X + UBound(A) + 1, 1)) = Application.WorksheetFunction.Transpose(A) X = X + UBound(A) + 2 End If Loop Until EOF(1) Close #1 End Sub
Public Sub ImportOgOmbrydTekst() Dim A, Tekst, I, X Open "C:\test\test.txt" For Input As #1 X = 1 Do Line Input #1, Tekst Tekst = Replace(Tekst, "# #", "#*#") Tekst = Replace(Tekst, "# Modtog", "#*Modtog") Tekst = Replace(Tekst, "C:\", "*C:\") Tekst = Replace(Tekst, "23.59.59 ", "23.59.59 *") Tekst = Replace(Tekst, "csp Modtog", "csp*Modtog") A = Split(Tekst, "*") ' If X = 44 Then Stop If Tekst = "" Or UBound(A) <= 0 Then Cells(X, 1) = Tekst X = X + 1 Else
Range(Cells(X, 1), Cells(X + UBound(A) + 1, 1)) = Application.WorksheetFunction.Transpose(A) X = X + (UBound(A) + 2) End If Loop Until EOF(1) Close #1 End Sub
ahhh, kabak ikke helt der er lidt fin pusninger med af fra sortere det ubetydelige fra.. Men kan være at der kommer flere spørgsmål til professoren.
Tak for nu kabbak..
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.
