Søg
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
VBS Af bsn i VBscript 5 16/07/202614:01 18/07/202610:46
Æ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
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 går 17:00 Film Server Af dcedata1977 i Andet software
I går 12:56 Mistænkelige mails! Af ErikHg i E-mail
12/0914:10 Komme ind på : YouSeeMusic" Af Ikke-ekspert i Musik & videoafspillere
12/0913:27 Send/modtag i Outlook 2024 Af ErikHg i E-mail programmer
10/0915:34 Installer alarmlyd på Samsung Galaxy XCover 7 Pro Af ErikHg i Mobiltelefoner
White papers
Flere white papers »