Making a csv out off a plain txt

[pbecks1963]

Hello,

I have a plain text file (large!) with data in it. Looks like this example:

********************************************************************************

USER: JOHN

IP Configuration:

Windows IP-configuratie

Host-naam . . . . . . . . . . . .: fghfgh

Primair DNS-achtervoegsel. . . . .: hdfgfh

Knooppunttype: . . . . . . . . . .: dfghgf

IP-routering ingeschakeld. . . . .: fdgh

WINS-proxy ingeschakeld . . . . . : nefghfe

DNS-achtervoegselzoeklijst. . . . : fghdfg

Applications:

3.46.0

AHV content for Acrobat and Flash 1

Adobe AIR 2.0.4.13090

Adobe AIR 2.0.4.13090

Cards

MsWord

MsExcel

USER: George

IP Configuration:

Windows IP-configuratie

Host-naam . . . . . . . . . . . .: fghfgh

Primair DNS-achtervoegsel. . . . .: hdfgfh

Knooppunttype: . . . . . . . . . .: dfghgf

IP-routering ingeschakeld. . . . .: fdgh

WINS-proxy ingeschakeld . . . . . : nefghfe

DNS-achtervoegselzoeklijst. . . . : fghdfg

Applications:

3.46.0

MsWord

MsExcel

*************************************************************

What i want is to change the text file into a csv-file (so that i can import it into MsExcel) So what i need to do is:

-remove all blank lines

-Put a comma behind all lines and merge the lines together (remove <ENTER>)

-place all the data of 1 USER on 1 line. (so, preceding the line that start with "USER", there has to be a <ENTER>

Note: one USER can have more data/lines in this text file then another USER.

Can someone help me with making this autoit-script?

Edited October 26, 2010 by pbecks1963

[JoHanatCent]

For starters from the Help file.

$file = FileOpen("test1.txt", 0)
$Count = 0
$alllines = "Begin Here ====="
; Check if file opened for reading OK
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
; Read in lines of text until the EOF is reached
While 1
    $count = $Count + 1
$line = FileReadLine($file)
If @error = -1 Then ExitLoop
$line = $line & ","
MsgBox(0, "Line read: "& $Count, $line)
$alllines = $alllines & $line
Wend
MsgBox(0, "Lines read: ", $alllines)
FileClose($file)

[UEZ]

Which application is producing the output? Another AU3 script?

If yes, it is easier to modify that code to produce the output format you want.

Br,

UEZ

[pbecks1963]

Hello,

I actually did it like this:

********************************

$Output = ""

;copy all log files into one big file

runwait( @comspec & " /c copy d:\current\*.log d:\current\merged.txt","",@SW_HIDE)

$szFile = "d:\current\merged.txt"

;search & replace

$szText = FileRead($szFile,FileGetSize($szFile))

$szText = StringReplace($szText, ",",";")

$szText = StringReplace($szText, @CRLF, ",")

$szText = StringReplace($szText, @CR, ",")

$szText = StringReplace($szText, @LF, ",")

$szText = StringReplace($szText," Host-naam . . . . . . . . . . . .:", ",")

$szText = StringReplace($szText, "USER:",@CRLF&"USER:")

$szText = StringReplace($szText, " ", " ")

$szText = StringReplace($szText, " ", " ")

$szText = StringReplace($szText, " ", " ")

$szText = StringReplace($szText, " ", " ")

$szText = StringReplace($szText, " ", " ")

$szText = StringReplace($szText, " ", " ")

$szText = StringReplace($szText, " ", " ")

$szText = StringReplace($szText, " ", " ")

$szText = StringReplace($szText, "IP Configuration: ","")

$szText = StringReplace($szText, "Windows IP-configuratie","")

FileDelete($szFile)

FileWrite($szFile,$szText)

***************************************************

I am not completely happy with it but it gets the job done (somewhat)