Format IP address and write to file

[tempman]

This is my input: 1.0.0.0,1.0.0.255,Australia

and this is how my output in test.txt with leading zeros should look like: 001.000.000.000,001.000.000.255,Australia

#include <Array.au3>

$text = '1.0.0.0,1.0.0.255,Australia'
$atext = StringSplit($text, ",")

$file = FileOpen("test.txt", 2)

For $i = 1 To 2
$array = StringRegExp($atext[$i], '(\d{1,3}).(\d{1,3}).(\d{1,3}).(\d{1,3})', 3)
For $j = 0 To 3
$k = StringFormat("%03i",$array[$j])
MsgBox(4096, "output", $k)
Next    
Next

FileClose($file)

Where to put and how to use FileWriteLine function?

Edited March 19, 2013 by tempman

[water]

Something like this:

#include <Array.au3>
$text = '1.0.0.0,1.0.0.255,Australia'
$atext = StringSplit($text, ",")
$file = FileOpen("test.txt", 2)
For $i = 1 To 2
    $array = StringRegExp($atext[$i], '(\d{1,3}).(\d{1,3}).(\d{1,3}).(\d{1,3})', 3)
    For $j = 0 To 3
        $k = StringFormat("%03i", $array[$j])
        MsgBox(4096, "output", $k)
        FileWrite($file, $k)
        If $j < 3 Then
            FileWrite($file, ".")
        Else
            FileWrite($file, ",")
        EndIf
    Next
Next
FileWriteLine($file, $atext[3])
FileClose($file)
Exit

Edited March 19, 2013 by water

[water]

BTW: Could you please set a meaningful title for your threads?

People should know if it is worth opening the thread!

[tempman]

@water

If $j < 3 Then
FileWrite($file, ".")
Else
FileWrite($file, ",")
EndIf

I'll never thought of that , thank you!

BTW: Could you please set a meaningful title for your threads?

People should know if it is worth opening the thread!

Honestly, I didn't know how to call a topic. Edited March 19, 2013 by tempman

[PhoenixXL]

This way

$text = '1.0.0.0,1.0.0.255,Australia'

Do
$text = StringRegExpReplace($text, '(^|\D)(\d{1,2})($|\D)', '${1}0\2\3' )
Until Not @extended

MsgBox(64, "Info", $text )

Edited March 19, 2013 by PhoenixXL

[water]

Honestly, I didn't know how to call a topic.

Something like: "Format IP address and write to file"