CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede nbnielsen Nybegynder
08. december 2005 - 09:03 Der er 14 kommentarer og
6 løsninger

Script til at omdøbe 2 til 1 i en stor txt fil.

Jeg har en kæmpe txt fil der lister en masse telefon numre.

Hvor telefon numreret står i den første kolonne og et customer nummer står i kolonne to.


'kolonnerne' er delt med mellemrum, men nogle af telefon numrene er længere end de andre, så jeg kan ikke bare tælle mellemrums tegn.


Listen starter også med 4 mellemrum før telefon nummeret starter.


indholdet ser nogenlunde sådan ud: "|" viser rammen i notepad ;)


|    2012            100 A A  M M M  0.00
|    4512            200 A A  M M M  0.00
|    95412            100 A A  M M M  0.00
|    96417            200 A A  M M M  0.00


Er det muligt at rette alle 2'tallerne i kolonne to til 1'taller?


Og hvordan skal jeg gribe den an? Kan i pege mig i den rigtige retning?
Avatar billede nbnielsen Nybegynder
08. december 2005 - 09:05 #1
Det ekstra mellemrum der er efter 5 cifrede numre skal ikke være der... min fejl..

kunde numrene står under hinanden, lidt ligesom en tabel oversigt i excel, hvis i forstår.
Avatar billede kedde65 Praktikant
08. december 2005 - 09:08 #2
Hvis du prøver at sende filen på ck@officekonsulenterne.dk så skal je prøve at kigge på det :-)

/Christian
Avatar billede nbnielsen Nybegynder
08. december 2005 - 09:11 #3
Sendt.
Avatar billede medions Nybegynder
08. december 2005 - 09:19 #4
Du kan gøre fx. sådan her:

strString = "    2012            100 A A  M M M  0.00"
arrTxt = Split(strString, "    ")
intLength = Len(arrTxt(1)) -1
strNewSting = Left(arrTxt(1), intLength)
MsgBox(strNewSting)


//>Rune
Avatar billede nbnielsen Nybegynder
08. december 2005 - 09:25 #5
hehe Rune, det kan være du ikke er helt med på ideen.

det er 2'tallerne i kolonne 2 der skal ændres til 1'taller.

det dine 5 linier gør er blot at take de første 3 tal i kolonne 1 og fjerne det sidste 2'tal.
Avatar billede kedde65 Praktikant
08. december 2005 - 09:26 #6
Jeg har ikke modtaget filen...

/Christian
Avatar billede medions Nybegynder
08. december 2005 - 09:27 #7
Agh agh, jeg glemte vel bare at skrive det sidste tal bagved...

strString = "    2012            100 A A  M M M  0.00"
arrTxt = Split(strString, "    ")
intLength = Len(arrTxt(1)) -1
strNewSting = Left(arrTxt(1), intLength)
strNewString = strNewString & "1"
MsgBox(strNewSting)

//>Rune
Avatar billede nbnielsen Nybegynder
08. december 2005 - 09:33 #8
:Rune

Ja, nu ligner det noget (efter lidt insættelse af nogle 'r' :P)



:Christian, jeg prøver lige igen.
Avatar billede nbnielsen Nybegynder
08. december 2005 - 09:38 #9
Men Rune... er det ik meningen at scriptet skal printe hele strengen ud på skærmen, hvor kolonne to har ændret sig, hvis der stod 200?
Avatar billede medions Nybegynder
08. december 2005 - 10:04 #10
nej, men et kan vi da bare gøre:

strString = "    2012            100 A A  M M M  0.00"
arrTxt = Split(strString, "    ")
intLength = Len(arrTxt(1)) -1
strNewString = Left(arrTxt(1), intLength)
strNewString = "    " & strNewString & "1"
strRestString = Right(strString, Len(strString)-(intLength+1)-4)
strFinialString = strNewString & strRestString
MsgBox(strFinialString)

//>Rune
Avatar billede nbnielsen Nybegynder
08. december 2005 - 10:16 #11
Hvis jeg sætter strString = "    2012            200 A A  M M M  0.00"

altså 200 i kolonne 2, så bliver strFinalString statig: "    2012            200 A A  M M M  0.00"

hvor 200 skulle have været 100
Avatar billede medions Nybegynder
08. december 2005 - 10:27 #12
Jamen vil du da bare ha' alle 2 tallerne bliver til 1 taller??

Så gør du jo bare sådan her:

strString = "    2012            100 A A  M M M  0.00"
strFinialString = Replace(strString, "2","1")
MsgBox(strFinialString)

//>Rune
Avatar billede medions Nybegynder
08. december 2005 - 10:30 #13
Eller er det sådan her du mener:

strString = "    2012            200 A A  M M M  0.00"
arrTxt = Split(strString, "    ")
intLength = Len(arrTxt(1)) -1
strNewString = Left(arrTxt(1), intLength)
strNewString = "    " & strNewString & "1"
strRestString = Replace(Right(strString, Len(strString)-(intLength+1)-4), "2", "1")
strFinialString = strNewString & strRestString

MsgBox(strFinialString)


//>Rune
Avatar billede nbnielsen Nybegynder
08. december 2005 - 10:45 #14
Det skal kun erstatte 2 med 1 i kolonne nummer to, og KUN i kolonne nummer to :o)
Avatar billede medions Nybegynder
08. december 2005 - 10:53 #15
Jamen så gør vi sådan her :-)

strString = "    2012            200 A A  M M M  0.00"
arrTxt = Split(strString, "    ")
intLength = Len(arrTxt(1))
strNewString = Left(arrTxt(1), intLength)
strNewString = "    " & strNewString
strRestString = Replace(Right(strString, Len(strString)-(intLength+1)-4), "2", "1")
strFinialString = strNewString & strRestString

MsgBox(strFinialString)


//>Rune
Avatar billede nbnielsen Nybegynder
08. december 2005 - 13:00 #16
Hvis jeg nu vil have den til at gøre det ved alle linier i en txt fil, hvad ville så være nemmest?
Avatar billede medions Nybegynder
08. december 2005 - 14:02 #17
Løbe hver linje igennem i en løkke og brug min kode i en funktion som en converter... fx.:

Function Converter(strString)
  arrTxt = Split(strString, "    ")
  intLength = Len(arrTxt(1))
  strNewString = Left(arrTxt(1), intLength)
  strNewString = "    " & strNewString
  strRestString = Replace(Right(strString, Len(strString)-(intLength+1)-4), "2", "1")
  strFinialString = strNewString & strRestString
  Converter = strFinialString
End Function

og så siger du jo bare:
Converter(Linje_fra_tekstfil)

//>Rune
Avatar billede medions Nybegynder
12. december 2005 - 09:24 #18
Har du fundet ud af det?

//>Rune
Avatar billede nbnielsen Nybegynder
12. december 2005 - 09:44 #19
Ja.

Din converter var en god løsning.

Den blev brug i en lille del af det endelige script.
Avatar billede medions Nybegynder
12. december 2005 - 10:16 #20
Det var godt det kunne bruges.

//>Rune
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra VBscript kategorien

Titel Indlæg Oprettet Seneste aktivitet
Ændre navn på folder Af bsn i VBscript 12 07/07/202312:45 09/07/202307:04
Outlook makro Af Webnoob i VBscript 6 09/02/202313:32 16/02/202315:51
Sti / Filname med mellemrum ??? Af ksor i VBscript 10 07/10/202200:43 07/10/202215:40
GetLastRow - Google spreadsheet Af rickiegrayholm i VBscript 2 22/04/202213:23 22/04/202214:55
Batch fil Af BDV i VBscript 1 12/01/202210:00 12/01/202210:05
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 15:56 Navigation i Peugeot 3-2008 fra 2017 Af arnepedersen i Andet software
I dag 14:10 Outlook henter ikke mails Af TTA i Office & Kontorpakker
I dag 13:58 vise billeder i kartotek med store ikoner inklusive optagelsesdato Af Malm i Billedbehandling
I dag 13:35 Adobe Elements 2019, Organizer Crasher Af mort1 i Billedbehandling
I går 20:49 pop up black friday Af Malm i Virus
White papers
Flere white papers »


Premium
Teaser billede
Vil købe tele-løsninger til det offentlige for 370 millioner kroner
Læs mere »
Efterspørgslen på AI-regnekraft er enorm - og det smitter af på priserne: "Vi kan sælge næsten alt, hvad vi får ind"
Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen
Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet
Se alle »
Computerworld
Teaser billede
Microsofts nye pc er ekstrem billig – men kan blive ekstrem sikker og fleksibel
Læs mere »
Test: Prøv kun disse B&O-hovedtelefoner, hvis du har råd
Kæmpe datalæk på hospital: 750.000 patienters fortrolige data lækket
Telegigant klar med AI-baseret mormor: Holder telefon-svindlere fast i røret med sniksnak og dumme spørgsmål
Se alle »
CIO
Teaser billede
Konsulenthus vil rulle Microsoft 365 Copilot ud til 200.000 ansatte
Læs mere »
Kæmpe-opgave for Danske Bank har banet vej for fuldautomatiseret migrering til cloud: Nu udbredes metoden i hele AWS
Microsofts store årlige event: De tre vigtigste nøglebudskaber fra Satya Nadella om Microsofts fremtid
Tre vigtige erkendelser, som Computerworld tog med hjem fra Gartners store topmøde i Barcelona
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Efter skelsættende møde med sportscoach: Stor dansk it-arbejdsplads indfører fredags-fri og isbade i arbejdstiden
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Topchef Sara Green mener, at der er brug for et radikalt nyt syn på it-ledelse - særligt én ny trend hader hun som pesten
Se alle »
White paper
Teaser billede
Sådan får du overblik og beskytter dine cloudapplikationer
Læs mere »
Sikkerhed uden grænser: Cisco Hypershield
Sådan gør du: Elektronisk dokumentudveksling i praksis
SMB og cybertrusler: Brug sikkerhedsressourcerne optimalt
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »