String (CSV) Lösch Befehl?

  • EDIT:
    Das Problem habe ich nun gelöst.
    Daher ist keine Hilfe mehr nötig.

    Hier die funktionierende Funktion

    [autoit]

    Func _delwarp()
    Local $string
    Local $tmp
    Local $del
    Local $csv = $csvArray2
    Local $Y
    Local $csvf = "warps.csv"
    Local $listview = $warplol

    FileOpen ($csvf, 2)
    $del = _GUICtrlListView_GetItemTextString($listview, (_GUICtrlListView_GetSelectedIndices($listview, False) + 0))
    _FileReadToArray($csvf, $csv)
    For $Y = 1 To $csv[0]
    $Sting = StringReplace($csv[$Y] & @CRLF,$del,"")
    FileWrite($csvf, $Sting)
    Next
    _FileReadToArray($csvf, $csv)
    Local $tmp[1]
    For $Y = 1 to $csv[0]
    If $csv[$Y] <> "" Then _ArrayAdd($tmp, $csv[$Y])
    Next
    _ArrayDelete($tmp, 0)
    _FileWriteFromArray($csvf, $tmp)
    _GUICtrlListView_DeleteAllItems((GUICtrlGetHandle($listview)))
    _FileReadToArray($csvf, $csv)

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

    For $Y = 2 to $csv[0]
    GUICtrlCreateListViewItem($csv[$Y],$listview)
    Next
    EndFunc

    [/autoit]

    2 Mal editiert, zuletzt von jjtcm (14. April 2011 um 14:20)