Import from text file

[FireLord 0]

How do I import words from a text file to an INI. Text file format would be:

word1

word2

word3

...

to an INI format like this:

Key=word1,word2,word3,

Regards,

FireLord

[Jex 0]

#include <File.au3>
$Key = ""
$Count = _FileCountLines("Test.txt")
For $i = 1 To $Count
    $Text = FileReadLine("Test.txt", $i)
    If $i = 1 Then
        $Key = $Text & ","
    ElseIf $i = $Count Then
        $Key = $Key & $Text
    Else
        $Key = $Key & $Text & ","
    EndIf
Next
FileWrite("Test.ini", "Key=" & $Key)

[FireLord 0]

#include <File.au3>
$Key = ""
$Count = _FileCountLines("Test.txt")
For $i = 1 To $Count
    $Text = FileReadLine("Test.txt", $i)
    If $i = 1 Then
        $Key = $Text & ","
    ElseIf $i = $Count Then
        $Key = $Key & $Text
    Else
        $Key = $Key & $Text & ","
    EndIf
Next
FileWrite("Test.ini", "Key=" & $Key)

Thank you so much. This works great!

[rasim 24]

One of the variant:

#include <File.au3>

Dim $TxtArray, $string

_FileReadToArray(@ScriptDir & "\test.txt", $TxtArray)
For $i = 1 To $TxtArray[0]
    $string &= $TxtArray[$i] & ", "
Next

$string = StringTrimRight($string, 2)

IniWrite(@ScriptDir & "\test.ini", "Section", "Key", $string)

[FireLord 0]

One of the variant:

#include <File.au3>

Dim $TxtArray, $string

_FileReadToArray(@ScriptDir & "\test.txt", $TxtArray)
For $i = 1 To $TxtArray[0]
    $string &= $TxtArray[$i] & ", "
Next

$string = StringTrimRight($string, 2)

IniWrite(@ScriptDir & "\test.ini", "Section", "Key", $string)

Thanks.