syntax fehler

1. offizieller Beitrag

    Hallo

    habe einen fehler kann die datei nicht laden habt ihr eine idee?

    Spoiler anzeigen
    [autoit]

    Global $file = FileOpen("logs\gruppen.txt", 0)
    Global $fh, $content
    If Not @error Then
    $fh = FileOpen($file, 0)
    $content = FileRead($fh)
    $content = StringReplace($content, @CRLF, '|')
    If StringRight($content, 1) = '|' Then $content = StringTrimRight($content, 1)
    GUICtrlSetData($Edit1, $content)
    EndIf

    [/autoit]

    lg SubZero ;)
    ==========================================================================

    "Der Computer ist die logische Weiterentwicklung des Menschen: Intelligenz ohne Moral."

    Einmal editiert, zuletzt von subzero007 (14. Mai 2009 um 14:33)

    Das funktkoniert so nicht ;)

    [autoit]

    Global $file = FileOpen("logs\gruppen.txt", 0)
    ...
    $fh = FileOpen($file, 0)

    [/autoit]


    und du hast auch FileClose vergessen.

    hey,

    hast recht habe es im beispiel übersehen aber ich vermute das ich noch ein fehler habe

    das ich nach dem run(comSpec..... gleich ein file open mache die datei braucht lange bis ich sie erstellt habe.

    wie kann ich ein wait zwischen setzen bis der befehl durch ist hier mein quellcode bin für vorschläge gerne offen ;)

    Spoiler anzeigen
    [autoit]

    case $Button7
    Run(@ComSpec & " /c " & 'dsquery.bat', "", @SW_HIDE)
    Global $file = FileOpen("logs\gruppen.txt", 0)
    Global $fh, $content
    If Not @error Then
    $fh = FileOpen($file, 0)
    $content = FileRead($fh)
    $content = StringReplace($content, @CRLF, '|')
    If StringRight($content, 1) = '|' Then $content = StringTrimRight($content, 1)
    GUICtrlSetData($Edit1, $content)
    EndIf
    FileClose($file)

    [/autoit]

    lg SubZero ;)
    ==========================================================================

    "Der Computer ist die logische Weiterentwicklung des Menschen: Intelligenz ohne Moral."

    [autoit]

    case $Button7
    RunWait(@ComSpec & " /c " & 'dsquery.bat', "", @SW_HIDE)
    Global $fh, $content
    If Not @error Then
    $fh = FileOpen("logs\gruppen.txt", 0)
    $content = FileRead($fh)
    $content = StringReplace($content, @CRLF, '|')
    If StringRight($content, 1) = '|' Then $content = StringTrimRight($content, 1)
    GUICtrlSetData($Edit1, $content)
    EndIf
    FileClose($file)

    [/autoit]


    So vielleicht.
    Greetz Taek

    DANKE Klappt

    würde jetzt die datei die ausgebe formatieren

    so sieht dir datei aus

    "CN=NL_B_STELLVERTRETER,OU=Groups,OU=_GlobalResources,OU=FM,DC=GE,DC=EU,DC=net"
    "CN=NL_f_STELLVERTRETER,OU=Groups,OU=_GlobalResources,OU=FM,DC=GE,DC=EU,DC=net"
    "CN=NL_d_STELLVERTRETER,OU=Groups,OU=_GlobalResources,OU=FM,DC=GE,DC=EU,DC=net"

    würde aber nur:

    NL_B_STELLVERTRETER

    NL_f_STELLVERTRETER

    NL_d_STELLVERTRETER

    eine idee wie ich das bewerkstelligen kann?

    lg SubZero ;)
    ==========================================================================

    "Der Computer ist die logische Weiterentwicklung des Menschen: Intelligenz ohne Moral."

    Da könntest du mit RegExp arbeiten, aber da bin ich auch nur Newbie. Wo sind die RegExp-Checker :whistling:;)

    Oder du löschst einfach die Strings rechts und links von deiner Phrase.

    Spoiler anzeigen
    [autoit]

    case $Button7
    RunWait(@ComSpec & " /c " & 'dsquery.bat', "", @SW_HIDE)
    Global $fh, $content
    If Not @error Then
    $string = FileRead(@ScriptDir & 'logs\gruppen.txt')
    $array = StringRegExp($string, 'CN=(.+?),.*', 3)
    _ArrayDisplay($Edit1)
    EndIf

    [/autoit]

    PS:edit 1 ist mein listview fenster ist das ok so?

    lg SubZero ;)
    ==========================================================================

    "Der Computer ist die logische Weiterentwicklung des Menschen: Intelligenz ohne Moral."

    Einmal editiert, zuletzt von subzero007 (14. Mai 2009 um 09:34)

    • Offizieller Beitrag

    Du solltest Dir angewöhnen, uns mitzuteilen welcher Fehler auftritt. Die allwissende Kristallkugel ist nicht immer verfügbar. ;)

    In dem Fall dürfte aber die Pfadangabe falsch sein:

    [autoit]

    $string = FileRead(@ScriptDir & 'logs\gruppen.txt')

    [/autoit]

    Richtig:

    [autoit]

    $string = FileRead(@ScriptDir & '\logs\gruppen.txt')

    [/autoit]

    leider ohne erfolg

    es kommt keine fehler meldung kriege bloss den formatierten text nicht in listview=$edit1 dargestellt

    lg SubZero ;)
    ==========================================================================

    "Der Computer ist die logische Weiterentwicklung des Menschen: Intelligenz ohne Moral."

    wow habe ich noch nie gemacht kannst du mir einen ersten einstieg geben ??

    lg SubZero ;)
    ==========================================================================

    "Der Computer ist die logische Weiterentwicklung des Menschen: Intelligenz ohne Moral."

    • Offizieller Beitrag

    Ok, hier ein Beispiel:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>
    #include <ListViewConstants.au3>
    GUICreate('Test', 600, 400)
    $hListView = GUICtrlCreateListView('Eintrag', 10, 10, 580, 300)
    GUICtrlSendMsg($hListView, $LVM_SETCOLUMNWIDTH, 0, 560) ; setzt die erste Spalte des Listviews auf 560 Pixel Breite

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

    $hButton = GUICtrlCreateButton('eintragen', 20, 320, 60, 20)
    GUISetState()

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

    While True
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    Exit
    Case $hButton
    NewItems()
    EndSwitch
    WEnd

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

    Func NewItems()
    $string = FileRead(@ScriptDir & '\test.txt')
    $array = StringRegExp($string, 'CN=(.+?),.*', 3)
    For $i = 0 To UBound($array) - 1
    GUICtrlCreateListViewItem($array[$i], $hListView)
    Next
    EndFunc

    [/autoit]

    Die Datei "test.txt" aus dem Anhang muss sich im gleichen Verzeichnis wie das obige Script befinden!