ALIGNMENT...

[lastmember]

Hello!

I have a text file containing FOLLOWING

john: 1234569

ana: 55366696

Johanson: 2536

and I want to open it and make it look like this with - $file = FileOpen(@TempDir & "test.txt", 0):

(file will have more lines)

john : 1234569

ana : 55366696

Johanson : 2536

how can I do that with AUTOIT?

Thanks in advance!

Edited March 26, 2013 by lastmember

[jdelaney]

Look into StringRegExp, to get array of the data.

Then loop through, with StringLen, to get the max len, and append spacing (to those shorter than max len) until it reaches the max stringlen.

Edited March 26, 2013 by jdelaney

[UEZ]

What are the rules for the alignment?

Br,

UEZ

[lastmember]

I am a beginner, you can post an example?

[lastmember]

: To be after the longest name

[font=courier new,courier,monospace]john     : 1234569
ana      : 55366696
Johanson : 2536[/font]

Edited March 26, 2013 by lastmember

[jdelaney]

#include <Array.au3>
$string = "john: 1234569" & @CRLF & _
"ana: 55366696" & @CRLF & _
"Johanson: 2536"
$array = StringRegExp($string,"(.*)\:(.*)", 4)
$iMaxLen = 0
For $i = 0 To UBound($array) - 1
 $temp = $array[$i]
;~  _ArrayDisplay($temp)
 If StringLen($temp[1]) > $iMaxLen Then $iMaxLen = StringLen($temp[1])
Next
$iMaxLen+=1 ; add the trailing space
For $i = 0 To UBound($array) - 1
 $temp = $array[$i]
 While StringLen($temp[1]) < $iMaxLen
  $temp[1] &= " "
 WEnd
 ConsoleWrite($temp[1] & ":" & $temp[2])
Next

[lastmember]

thanks for promptly

but I want to read from a text file and save it in another file, how to do that?

[jdelaney]

Well, the variable is there for the string...what function should you call to read the text of a file? Look in the helpfile.

File*

or

_File* functions

Use the above function to populate the variable.

Edited March 26, 2013 by jdelaney

[lastmember]

#include 
$file = FileOpen(@TempDir & "\test.txt", 0)
$chars = FileRead($file)
$array = StringRegExp($chars,"(.*)\:(.*)", 4)
$iMaxLen = 0
For $i = 0 To UBound($array) - 1
$temp = $array[$i]
;~ _ArrayDisplay($temp)
If StringLen($temp[1]) > $iMaxLen Then $iMaxLen = StringLen($temp[1])
Next
$iMaxLen+=1 ; add the trailing space
For $i = 0 To UBound($array) - 1
$temp = $array[$i]
While StringLen($temp[1]) < $iMaxLen
$temp[1] &= "."
WEnd
ConsoleWrite($temp[1] & $temp[2])
Next
FileClose($file)

YES IT IS OK !

merci beaucoup !