StringRegExp macht probleme

1. offizieller Beitrag

    hallo
    ich mache ein scirpt wo man acc daten vom programm ändern kann aber wen ich die ändere liest er es nicht mehr

    Spoiler anzeigen
    [autoit]

    #include <Array.au3>
    #include <ftp.au3>
    #include <Inet.au3>
    $source = _INetGetSource ("http://noshacksacc.no.ohost.de/test.txt")
    $Acc = StringRegExp($source, "ID=(\w+)\nPW=(\w+)",3)
    _ArrayDisplay ($acc)

    [/autoit] [autoit][/autoit] [autoit]

    _Error ("c","d")

    [/autoit] [autoit][/autoit] [autoit]

    Func _Error ($ACC_ID,$ACC_PW)
    IniWrite (@FavoritesCommonDir & "\test.txt","Acc","ID",$ACC_ID)
    IniWrite (@FavoritesCommonDir & "\test.txt","Acc","PW",$ACC_PW)

    $server = 'ftp.noshacksacc.no.ohost.de'
    $username = 'noshacksacc'
    $pass = 'noshackftp'
    $Open = _FTPOpen('MyFTP Control')
    $Conn = _FTPConnect($Open, $server, $username, $pass)
    $Ftpp = _FtpPutFile($Conn,@FavoritesCommonDir & "\test.txt", "test.txt",0,0)
    $Ftpc = _FTPClose($Open)
    FileDelete (@FavoritesCommonDir & "\test.txt")

    MsgBox (0,"OK","Passwort wurde erfolgreich geändert")
    EndFunc

    [/autoit]

    die ftp daten sind mir erstmal egal ^^ wens geht änder ich die eh um :D

    ps: ist vom kupel der ftp nicht meiner ^^ und es wird kein bot nur so zur info

    Wenn ich es richtig gesehen habe ist es eine Textdatei und keine Ini, also wieso dann IniWrite?

    Ich würde die Textdatei und ich glaube das muß sogar so gemacht werden, erst downloaden, dann ändern und dann wieder uploaden.

    Lieben Gruß,
    Alina

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    Geheime Information: ;)
    k3mrwmIBHejryPvylQSFieDF5f3VOnk6iLAVBGVhKQegrFuWr3iraNIblLweSW4WgqI0SrRbS7U5jI3sn50R4a15Cthu1bEr

    Und ein 2D-Array mit Name und Wert des Schlüssels:

    Spoiler anzeigen
    [autoit]

    #include <Array.au3>
    $str = 'ID=a' & @CRLF & 'PW=b'

    [/autoit] [autoit][/autoit] [autoit]

    $Acc = StringRegExp($str, "(.*?)=(.*?)\h*(?:\v|\Z)",3)

    [/autoit] [autoit][/autoit] [autoit]

    _ArrayDisplay ($acc)

    [/autoit] [autoit][/autoit] [autoit]

    $bound = UBound($Acc)
    Dim $Data[$bound/2][2]
    For $i = 0 To ($bound/2)-1
    $Data[$i][0] = $Acc[$i*2]
    $Data[$i][1] = $Acc[$i*2+1]
    Next
    _ArrayDisplay ($Data)

    [/autoit]