automatisk komma i text fil

Software d. 08. januar. 2009, skrevet af OTC-Raptor

Vist: 441 gange.

Superbruger
Tilføjet:
08-01-2009 13:32:57
Svar/Indlæg:
130/33

Hej

jeg har en stor pris liste med omkring 30000 vare nr.
som jeg skal have opdelt med et komm efter 12tegn er der nogle som kender et lille pogram som kan gøre det gidder ikke helt gøre det manuelt.

det skal blive sådan her

før

0000000000001233

efter

000000000000,1233

tak

Fonzi

Superbruger
Tilføjet:
08-01-2009 15:01:36
Svar/Indlæg:
262/18

Måske http://www.sobolsoft.com/creat... ?

titboy

Superbruger
Tilføjet:
08-01-2009 15:51:26
Svar/Indlæg:
19/0

måske indsætte i excel

eller bruge en standard text editor med 'search/replace' funktionen

hvis alle er ens som de eksempler du viser der, så brug notepad
og lav replace på
000000000000
til
000000000000,
og vupti
0000000000001233 bliver til 000000000000,1233

Jesper bb

Elitebruger
Tilføjet:
08-01-2009 16:10:06
Svar/Indlæg:
2072/117

Som #2 siger kan Excel sagtens klare den opgave.

OTC-Raptor

Superbruger
Tilføjet:
08-01-2009 16:30:43
Svar/Indlæg:
130/33

tak så kom det hele til at virkke

smider lige koden så den ligger sammen med tråden til andre folk

Const ForReading = 1
Const ForWriting = 2

arrCommas = Array(12,7,17,18,20)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\1\Test.txt", ForReading)

Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
intLength = Len(strLine)
For Each strComma in arrCommas
strLine = Left(strLine, strComma - 1) + "," + Mid(strLine, strComma, intLength)
Next
strText = strText & strLine & vbCrLf
Loop

objFile.Close

Set objFile = objFSO.OpenTextFile("C:\1\Test.txt", ForWriting)
objFile.Write strText
objFile.Close

tak