Beiträge von gmmg

gmmg

hab es jetzt so gemacht, passt aber nicht ... es kommt eine syntax fehlermeldung!

Spoiler anzeigen

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

$z_string = ("'" & _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[85]) & "','" & _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[86]) & _
"','" & _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[64]) & "','" & _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[87]) & _
"','" & _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[88] & "','" & _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[89] & _
"','" & _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[90] & "','" & _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[92] & _
"','" & _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[93] & "','" & _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[99] & _
"','" & _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[100] & "','" & _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[101] & _
"','" & _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[102] & "','" & _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[103] & _
"','" & _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[105] & "'")

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

ERROR: syntax error
"','" & _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[105] & "'")

gmmg

das ging ja schnell

zum glück sind es nur 14 einträge!

ich hätte gedacht, mann stellt sich den string zusammen und macht den danach myql sicher!
kann man überhaupt testen, ob ein string mysql sicher ist?

danke

gruß gmmg

gmmg

Hallo Progandy

hab ein kleines verständnisproblem!
ich lese nach dem muster (siehe vorherige posts) eine textdatei in ein array!
diesen splitte ich und stelle dann aus den einzelnen array werten eiinen string!

quelltextabschnitt ..

[autoit]

For $x = 1 to $aRecords[0]
;MsgBox(0,"",$aRecords[$x])
; string formatieren ...

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

$s_Row_txt_t1 = StringSplit($aRecords[$x], ",") ; den Record in die einzelnen Felder teilen
$s_Row_txt = '' ; Variable füe gesamten Text leeren
;~ For $i = 1 To $s_Row_txt_t1[0] ; für jedes Feld Befehle ausführen
;~ $s_Row_txt_t1[$i] = _MySQL_Real_Escape_String($MysqlConn, $s_Row_txt_t1[$i]) ; Feldinhalt MySQL-sicher machen
;~ $s_Row_txt &= "'" & $s_Row_txt_t1[$i] & "' ," ; an des Gesamttext ein Anführungszeichen , den gesicherten Text, ein Anführungszeichen und ein Komma anhängen
;~ ;MsgBox(0,"",$s_Row_txt)
;~ Next
;~ $s_Row_txt = StringTrimRight($s_Row_txt, 1) ; Das letzte Komma vom Gesamtstring entfernen

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

; zusammengestellter string
$z_string = ("'" & $s_Row_txt_t1[85] & "','" & $s_Row_txt_t1[86] & "','" & $s_Row_txt_t1[64] & "','" & $s_Row_txt_t1[87] & _
"','" & $s_Row_txt_t1[88] & "','" & $s_Row_txt_t1[89] & "','" & $s_Row_txt_t1[90] & "','" & $s_Row_txt_t1[92] & _
"','" & $s_Row_txt_t1[93] & "','" & $s_Row_txt_t1[99] & "','" & $s_Row_txt_t1[100] & "','" & $s_Row_txt_t1[101] & _
"','" & $s_Row_txt_t1[102] & "','" & $s_Row_txt_t1[103] & "','" & $s_Row_txt_t1[105] & "'")

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

$z_string = StringReplace($z_string,'"', '')

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

;ConsoleWrite($z_string)
MsgBox(0,"",$z_string)

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

;formatierter string

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

'16.03.2010','10:15','1000','1','1','00:00:06','00:00:06','0','0','0','0','00:00:00','00:00:00','0','00:03:52'

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

wie mache ich den string jetzt MySQL-sicher?
geht folgendes?

$z_string = _MySQL_Real_Escape_String($MysqlConn,$z_string)

danke für eure antworten ...

gruß gmmg

gmmg

hallo jonathan,

ich benutze immer folgendes:

[autoit]

;---dateien ins script einfügen -------

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

FileInstall("C:\scripte\7z.exe", @ScriptDir & "\TEMP\7z.exe",1)
FileInstall("C:\scripte\7z.dll", @ScriptDir & "\TEMP\7z.dll",1)

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

;--- entpacken----

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

$Archive = @ScriptDir & "\TEMP\datei.zip"
$Output = "C:\ordner zum entpacken\"
RunWait(@ComSpec & " /c " & @ScriptDir & "\TEMP\7z.exe x " & '"' & $Archive & '"' & " -aoa -y -o" & '"' & $Output & '"')

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

falls du noch andere konsolenbefehle für die 7z benötigst, muss mal googeln!

im anhang als Zip datei angefügt :
7z.dll / 7z.exe

gruß gmmg

gmmg

was willst du dann jetzt damit erreichen? was soll passieren, wenn die maus an erster, zweiter, dritter position ist?

[autoit]

Dim $x1,$y1
_GetPos()
MouseMove($x1 +146, $y1 +196)
_GetPos()
MouseMove($x1 -346, $y1 -196)
_GetPos()
MouseMove($x1+113, $y1 +336)
_GetPos()
MouseMove($x1-246, $y1 -696)
_GetPos()
MouseMove($x1+546, $y1 -596)
_GetPos()
MouseMove($x1+446, $y1 +196)
_GetPos()
MouseMove($x1+246, $y1 +496)
_GetPos()
MouseMove($x1+346, $y1 +396)
_GetPos()
MouseMove($x1+646, $y1 +296)

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

Func _GetPos()
$pos = MouseGetPos()
$x1 = $pos[0]
$y1 = $pos[1]
EndFunc

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

#Include <Array.au3>

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

Dim $x1,$y1
Dim $array[8]

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

$array[0] = "+146,+196"
$array[1] = "-346,+336"
$array[2] = "-246,-696"
$array[3] = "+546,-596"
$array[4] = "+446,-196"
$array[5] = "+246,+496"
$array[6] = "+346,+396"
$array[7] = "+646,+296"

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

For $i = 0 To 7

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

$wert = StringSplit($array[$i], ",")
$pos = MouseGetPos()
$x1 = $pos[0]
$y1 = $pos[1]
MouseMove($x1 + $wert[1], $y1 + $wert[2])
Next

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

gruß gmmg

gmmg

leider kann man dir nicht ganz folgen!

du musst dir deinen ablauf erstmal gedanklich aufgreifen und dann hier mal zu text bringen ...

was willst du erreichen ?
--> ein Browserfenster soll geöffnet werden!!
wann soll dies geschehen?
--> wenn die linke oder echte maustaste gedrückt wird, sich ein programm öffnet!

hast du mal in die autoit hilfe gesehen? schnitzel hat hier vollkommen recht!

_IsPressed scheint das richtige zu sein.

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

;01 Left mouse button
;02 Right mouse button
;04 Middle mouse button (three-button mouse)

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

#include <Misc.au3>

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

$dll = DllOpen("user32.dll")

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

While 1
Sleep ( 250 )
If _IsPressed("01", $dll) Then
MsgBox(0,"_IsPressed", "End Key Pressed")
Shellexecute("notepad.exe")
ExitLoop
EndIf
WEnd
DllClose($dll)

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

gruß gmmg

gmmg

hallo progandy,

danke für die info!

die letzte zeile der textdatei ist nicht leer, sondern enthält ein zeichen (kleines viereck)! denke mal es ist irgendein steuerzeichen ...

[autoit]

20100310;"TRAFFIC";"TRAF";;10445;"4513787";2;;0;20100407;"BiV";"DÜXXH";"";;

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

hab die txt mal angehangen!

hab hier einen lösungsansatz gefunden

Spoiler anzeigen

nimm Dir einen Hex-Editor, ermittle den Zeichencode des kleinen Vierecks, lese die Datei in eine Zeichenkette ein, ermittle mit der Instr-Funktion die Position des kleinen Vierecks, verwende die Mid-Funktion, um die Zeichenkette hinter dem Viereck zu erhalten, speichere die Daten zurück und starte den Import.
-->
Das kleine Viereck ist ein Textumbruchzeichen <tt>Chr(10)</tt> oder <tt>Chr(13)</tt>

gruß gmmg

gmmg

nein, hat nichts mit mysql zu tun nur mit dem verarbeiten einer txt in mysql ...

habe es aber jetzt so gemacht, das ich die letzte zeile einfach beim schleifendurchlauf weglasse!

also:

[autoit]

For $x = 2 to $aRecords[0] -1

[/autoit]

gruß gmmg

gmmg

danke,

daran lag es, hatte die hochstriche ` xx` nur bei "ON DUPLICATE KEY" drin ...

wie kann ich eine leerzeile in einer txt am ende der einträge entfernen?

gruß gmmg

gmmg

@progandy,

ich muss mein thema nochmal aufgreifen!

ich habe probleme in die tabelle zu schreiben, wenn der feldname ein bindestrich enthält z.b. BU-NR!
ist das in mysql so definiert? kann ich mir nicht vorstellen, da es per odbc aus access heraus funktioniert.!

gruß gmmg

gmmg

hallo schnitzel,

sicher ist da noch was zu verbessern, aber wenn's läuft läufts halt!
es ist auf über 300 pc's fast zeitgleich ohne fehler gelaufen....

sollte im übrigen auch nur mal ein beispiel sein, wie man es machen könnte!
jedes setup verhält sich ja anders ...

@Mitnick

warum benutzt du nicht das 7zip.msi paket?

das könnest du einfacher verteilen!

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

;--http://www.7-zip.org/download.html ---

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

RunWait ('msiexec /i "\\server\Installationen\7zip.msiI" /quiet', "" , @SW_HIDE)
MsgBox(0,"","Install fertig",2)

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

gruß gmmg

gmmg

beispiel einer installation ...

wenn du scite benutzt, da gibts das tool "AU3Info"!

mit dem kannst du dir fensternamen und positionen anzeigen lassen, die du dann wiederum ansteuern kannst!

Spoiler anzeigen

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

Run (@ScriptDir & "\TEMP\TrafficsComso_install.exe")

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

WinWait("TrafficsCosmo - Desktop Installation","")
If Not WinActive("TrafficsCosmo - Desktop Installation","") Then WinActivate("TrafficsCosmo - Desktop Installation","")
WinWaitActive("TrafficsCosmo - Desktop Installation","")
Send("{SPACE}")

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

WinWait("TrafficsCosmo - Desktop Installation","Bitte lesen Sie die ")
If Not WinActive("TrafficsCosmo - Desktop Installation","Bitte lesen Sie die ") Then WinActivate("TrafficsCosmo - Desktop Installation","Bitte lesen Sie die ")
WinWaitActive("TrafficsCosmo - Desktop Installation","Bitte lesen Sie die ")
ControlClick("TrafficsCosmo - Desktop Installation","Bitte lesen Sie die ", 70)
Sleep(500)
Send("{ENTER}")

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

WinWait("TrafficsCosmo - Desktop Installation","Zielverzeichnis wählen")
If Not WinActive("TrafficsCosmo - Desktop Installation","Zielverzeichnis wählen") Then WinActivate("TrafficsCosmo - Desktop Installation","Zielverzeichnis wählen")
WinWaitActive("TrafficsCosmo - Desktop Installation","Zielverzeichnis wählen")
ControlClick("TrafficsCosmo - Desktop Installation","Zielverzeichnis wählen", 10)
Send("{HOME}")
Send("{SHIFTDOWN}{END}")
Send("{SHIFTUP}")
Sleep(100)
Send("{DEL}")
Send("C:\Programme\TrafficsCosmoV4\") ; installpfad übergeben
Sleep(500)
Send("!W")
Sleep(500)
Send("!W")
Sleep(500)
Send("!i")
Sleep(2000)
WinWait("TrafficsCosmo - Desktop Installation","Setup abgeschlossen")
If Not WinActive("TrafficsCosmo - Desktop Installation","Setup abgeschlossen") Then WinActivate("TrafficsCosmo - Desktop Installation","Setup abgeschlossen")
WinWaitActive("TrafficsCosmo - Desktop Installation","Setup abgeschlossen")
Send("{SPACE}")

[/autoit]

natürlich gabs ein BlockInput ...

gruß gmmg

gmmg

hallo thami,

nochmal zu @scriptdir!

wenn du dein kompliertes script in c:\ liegen hast und ausführst, dann wird das temp in c:\temp erstellt, liegt das script in c:\programme\scriptname, dann in diesem pfad!
c:\programme\scriptname\temp

gruß gmmg

gmmg

hallo,

warum erstellst du nicht im @scriptdir ein temp?

kannst es ja danach wieder löschen lassen!

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

DirCreate(@ScriptDir & "\TEMP\")

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

FileInstall("c:\service\cacls.exe", @ScriptDir & "\TEMP\cacls.exe",1)

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

; --- quelltext
; --- quelltext
; --- quelltext

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

DirRemove(@ScriptDir & "\TEMP", 1)

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

gruß gmmg

gmmg

hallo,

folgend mal ein beispiel eines ftp tools.

Spoiler anzeigen

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

;#RequireAdmin
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <FTP_Ex.au3>

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

#include<GuiTreeView.au3>
#include<EditConstants.au3>
#include<GUIConstantsEx.au3>
#include<TreeViewConstants.au3>
#include<WindowsConstants.au3>

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

FileInstall("C:\bloodonthedancefloorgreen.jpg", @ScriptDir & "\bloodonthedancefloorgreen.jpg")

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

;Dim $filelist, $conn

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

$server = 'ftp.strato.com'
$username = 'xxx'
$pass = 'xxx'

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

$path = '/intern/documente/'

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

$open = _FTPOpen('ftp-strato.com')
$conn = _FTPConnect($open,$server,$username,$pass, true)
;MsgBox(0,"",$conn)
$setdir = _FTPSetCurrentDir($conn, $path)
;$filelist = _FTPFilesListTo2DArray ($conn)
$filelist = _FTPFilesListToArrayEx ($conn)

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

;GUI CODE STARTET HIER;
#Region ### START Koda GUI section ### Form=C:\scripte\ftp_down_upload\Gui_miniFtp.kxf
$Gui = GUICreate("FTP Client 1.0.0.0", 492, 500, 192, 125)
;GUISetBkColor(0x00708090) ; setzt hintergrundfarbe
$pic = GUICtrlCreatePic(@ScriptDir & "\bloodonthedancefloorgreen.jpg", -60, -130, 0, 0)
GuiCtrlSetState($pic,$GUI_DISABLE)
$Group1 = GUICtrlCreateGroup("Filepath from Server = " & $path, 8, 16, 345, 473)
$liste = GUICtrlCreateList("", 20, 38, 320, 435)
;GUICtrlSetData($liste, "")
$Group2 = GUICtrlCreateGroup("FTP Functions", 368, 152, 105, 217)
;GUICtrlSetColor($Group2, 0xFFFFFF)
$downloadbutton = GUICtrlCreateButton("Download", 379, 174, 79, 26, $WS_GROUP)
GUICtrlSetBkColor(-1,0x00708090)
;GUIctrlSetState($downloadbutton,$GUI_HIDE)
;GUIctrlSetState($downloadbutton,$GUI_Disable)
$uploadbutton = GUICtrlCreateButton("Upload", 379, 212, 79, 26, $WS_GROUP)
GUICtrlSetBkColor(-1,0x00708090)
$filedel = GUICtrlCreateButton("Delete", 379, 250, 79, 26, $WS_GROUP)
;GUICtrlSetBkColor(-1,0x66CC00)
GUICtrlSetBkColor(-1,0x00708090)
;GUIctrlSetState($filedel,$GUI_Disable)
$refresh = GUICtrlCreateButton("Refresh", 379, 328, 79, 26, $WS_GROUP)
GUICtrlSetBkColor(-1,0x00708090)
;GUIctrlSetState($refresh,$GUI_Disable)
$rename = GUICtrlCreateButton("Rename", 379, 286, 79, 26, $WS_GROUP)
GUICtrlSetBkColor(-1,0x00708090)
;GUIctrlSetState($rename,$GUI_Disable)

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

For $i = 1 to UBound ($filelist) -1
GUICtrlSetData ($liste, $filelist [$i][0]&"|")
Next

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

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;GUI CODE ENDET HIER;

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

while 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
_FTPClose($conn)
_FTPUnInit()
FileDelete(@ScriptDir & "\bloodonthedancefloorgreen.jpg")
Exit
Case $downloadButton
;_download()
_splash()
Case $uploadbutton
_upload()
Case $filedel
_fileDel()
Case $refresh
;_refresh()
_splash()
Case $rename
;_rename()
_splash()
EndSwitch
WEnd

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

;----Functions----

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

Func _download()
$DownFile = GUICtrlRead ($liste)
If $DownFile = "" Then
MsgBox (16, "STOP", "Du musst erst eine Datei auswählen")
Else
DirCreate (@ScriptDir & "\Download")
_FTP_DownloadProgress($conn, @ScriptDir & "\Download\" & $DownFile, "/" & $DownFile)
EndIf
EndFunc

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

Func _upload()

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

$Uploaddatei = FileOpenDialog("Auswählen","C:\","Alle (*.*)")
If $Uploaddatei = "" Then
MsgBox (0, "Achtung!", "Erst eine Datei auswählen!")
Else
$dateinamensplit = StringSplit($Uploaddatei, "\")
$teile = $dateinamensplit[0]
;MsgBox(0,"",$teile)
Global $UploadVorgang = _FTP_UploadProgress($conn, $Uploaddatei, $path & $dateinamensplit[$teile])
If $UploadVorgang = 1 Then
MsgBox (64, "Okay", "hochladen erfolgreich")
GUICtrlDelete($liste)
$open = _FTPOpen('ftp-strato.com')
$conn = _FTPConnect($open,$server,$username,$pass, true)
;$filelist = _FTPFilesListTo2DArray ($conn,0,0x80000000)
$setdir = _FTPSetCurrentDir($conn, $path)
$filelist = _FTPFilesListTo2DArray ($conn,0,0x80000000)
$liste = GUICtrlCreateList("", 20, 38, 320, 435)
For $i = 1 to UBound ($filelist) -1
GUICtrlSetData ($liste, $filelist [$i][0]&"|")
Next
Else
MsgBox (16, "Error", "Aufgrund eines Fehlers wird das Programm beendet!")
Exit
EndIf
EndIf

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

EndFunc

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

Func _fileDel()

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

$del = MsgBox(52,"Aktion bestätigen","Die datei " & GUICtrlRead($liste) & " wirklich löschen?")
If $del = 6 Then
$s_RemoteFile = GUICtrlRead($liste)
_FTPDelFile($conn, $s_RemoteFile)
MsgBox(64,"ok","Ok, Die Datei wurde erfolgreich gelöscht")
GUICtrlDelete($liste)
$open = _FTPOpen('ftp-strato.com')
$conn = _FTPConnect($open,$server,$username,$pass, true)
;$filelist = _FTPFilesListTo2DArray ($conn,0,0x80000000)
$setdir = _FTPSetCurrentDir($conn, $path)
$filelist = _FTPFilesListTo2DArray ($conn,0,0x80000000)
$liste = GUICtrlCreateList("", 20, 38, 320, 435)
For $i = 1 to UBound ($filelist) -1
GUICtrlSetData ($liste, $filelist [$i][0]&"|")
Next
Else
MsgBox(16,"abbruch","Aktion abgebrochen")
EndIf

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

EndFunc

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

Func _refresh()

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

GUICtrlDelete($liste)

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

$open = _FTPOpen('ftp-strato.com')
$conn = _FTPConnect($open,$server,$username,$pass, true)
;$filelist = _FTPFilesListTo2DArray ($conn,0,0x80000000)
$setdir = _FTPSetCurrentDir($conn, $path)
$filelist = _FTPFilesListTo2DArray ($conn,0,0x80000000)
$liste = GUICtrlCreateList("", 20, 38, 320, 435)
For $i = 1 to UBound ($filelist) -1
GUICtrlSetData ($liste, $filelist [$i][0]&"|")
Next
MsgBox(0,"ok","Erfolgreich aktualisiert")
;~ MsgBox(64,"nönö","schon vergessen? das geht noch nit!")

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

EndFunc

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

Func _rename()

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

$s_Existing = GUICtrlRead($liste)
$s_New = InputBox("Rename","in welchen Namen soll die Datei umbenannt werden?",$s_Existing)
If Not @error Then
_FTPRenameFile($conn, $s_Existing, $s_New)
MsgBox(0,"ok","Die Datei wurde umbeannt")
GUICtrlDelete($liste)
$open = _FTPOpen('ftp-strato.com')
$conn = _FTPConnect($open,$server,$username,$pass, true)
;$filelist = _FTPFilesListTo2DArray ($conn,0,0x80000000)
$setdir = _FTPSetCurrentDir($conn, $path)
$filelist = _FTPFilesListTo2DArray ($conn,0,0x80000000)
$liste = GUICtrlCreateList("", 20, 38, 320, 435)
For $i = 1 to UBound ($filelist) -1
GUICtrlSetData ($liste, $filelist [$i][0] & "|")
Next
Else
MsgBox(64,"oioi","Aktion abgebrochen!")
EndIf

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

EndFunc

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

Func _splash()

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

SplashTextOn("Info!", "Button deaktiviert!", 155,38,500,400,0,"",8)
Sleep(1500)
SplashOff()
EndFunc

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

gruß gmmg

gmmg

das ist mir schon klar

war ja auch keine kritik, sonst hätte ich erst garnicht geantwortet ...

sollte nur eine anregung sein, wie ein editor mit den verschiedenen menüpunkten aussehen kann.
es gibtja viele icon editoren, die taugen aber einfach nichts ...

zurück zum thema ...
werden die verschiedenen anzeigegrößen auch implementiert?

gruß gmmg

gmmg

hallo,

also ich benutze icoFX, wenn ich mal ein icon selbst bzw., aus png dateien erstellen will!

gruß gmmg

gmmg

jetzt hab ich es .....

schließe den tread als "gelöst"

danke

gruß gmmg

gmmg

danke, so funktioniert es jetzt

kannst du mir nochmal den abschnitt erklären, hab das nicht ganz verstanden!

[autoit]

$s_Row_txt_t1 = StringSplit($aRecords[$x], ";")
$s_Row_txt=''
For $i = 1 To $s_Row_txt_t1[0]
$s_Row_txt_t1[$i] = _MySQL_Real_Escape_String($MysqlConn, $s_Row_txt_t1[$i])
$s_Row_txt &= "'" & $s_Row_txt_t1[$i] & "' ,"
Next
$s_Row_txt = StringTrimRight($s_Row_txt, 1)

[/autoit]

hier nochmal das komplette script ..

Spoiler anzeigen

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

#Include <File.au3>
#include <mysql.au3>
#include <array.au3>

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

DIM $aRecords

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

$file = "C:\otmailid.txt"

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

If Not _FileReadToArray($file,$aRecords) Then
MsgBox(4096,"Error", " Error reading log to Array error:" & @error)
Exit
EndIf

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

;$s_Row1 = StringReplace($aRecords[1],"-","_")
;$s_Row1 = StringReplace($s_Row1,"/","_")
;$s_Row1 = StringReplace($s_Row1, ";", " TEXT|")
;$s_Row1 = $s_Row1 & " TEXT"
;$s_Row1 = $s_Row1
;MsgBox(0,"",$s_Row1)

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

; db verbindungsvariablen
$ipadd = "127.0.0.1"
$sname = "root"
$spasswort = "root"
$db = "otmailid"

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

_MySQL_InitLibrary()
If @error Then Exit MsgBox(0, "Fehler", "libmysql.dll nicht gefunden")

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

$MysqlConn = _MySQL_Init()

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

$connected = _MySQL_Real_Connect($MysqlConn,$ipadd,$sname,$spasswort,$db)
If $connected = 0 Then
$errno = _MySQL_errno($MysqlConn)
MsgBox(0,"Fehler","Login Server ist nicht Erreichbar")
Exit
Endif

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

For $x = 2 to $aRecords[0]
;Msgbox(0,'Record:', $aRecords[$x])

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

$s_Row_txt_t1 = StringSplit($aRecords[$x], ";")
$s_Row_txt=''
For $i = 1 To $s_Row_txt_t1[0]
$s_Row_txt_t1[$i] = _MySQL_Real_Escape_String($MysqlConn, $s_Row_txt_t1[$i])
$s_Row_txt &= "'" & $s_Row_txt_t1[$i] & "' ,"
Next
$s_Row_txt = StringTrimRight($s_Row_txt, 1)

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

;MsgBox(0,"",$s_Row_txt)

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

Local $sQuery = "INSERT INTO otmailid (BU_NR,ERF_DAT,SB_MA,AG_NR,KU_NR,MAILADRESSE,TYP) VALUES (" & $s_Row_txt & ")" & _
" ON DUPLICATE KEY UPDATE `ERF_DAT` = (" & "'" & $s_Row_txt_t1[2] & "'" & ") ," & _
"`SB_MA` = (" & "'" & $s_Row_txt_t1[3] & "'" & ")," & _
"`AG_NR` = (" & "'" & $s_Row_txt_t1[4] & "'" & ")," & _
"`KU_NR` = (" & "'" & $s_Row_txt_t1[5] & "'" & ")," & _
"`MAILADRESSE` = (" & "'" & $s_Row_txt_t1[6] & "'" & ")," & _
"`TYP` = (" & "'" & $s_Row_txt_t1[7] & "'" & ")"
;MsgBox(0,"",$sQuery)

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

_MySQL_Real_Query($MysqlConn, $sQuery)

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

MsgBox(0,"","einfügen in tabelle fertig",5)

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

; Verbindung beenden
_MySQL_Close($MysqlConn)
; MYSQL beenden
_MySQL_EndLibrary()

[/autoit]

gruß gmmg

gmmg

funktioniert so nicht!

$s_Row_txt = StringTrimRight($s_Row_txt, 1)

string = BU_NR,ERF_DAT,SB_MA,AG_NR,KU_NR,MAILADRESSE,TYP

$s_Row_txt --> gibt mir nur den letzten eintrag aus dem string, also den wert, der bei TYP steht

[autoit]

For $x = 2 to $aRecords[0]
;Msgbox(0,'Record:', $aRecords[$x])

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

$s_Row_txt_t1 = StringSplit($aRecords[$x], ";")
$s_Row_txt=''
For $i = 1 To $s_Row_txt_t1[0]
$s_Row_txt_t1[$i] = _MySQL_Real_Escape_String($MysqlConn, $s_Row_txt_t1[$i])
$s_Row_txt = "'" & $s_Row_txt_t1[$i] & "' ,"
Next
$s_Row_txt = StringTrimRight($s_Row_txt, 1)

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

Local $sQuery = "INSERT INTO otmailid (BU_NR,ERF_DAT,SB_MA,AG_NR,KU_NR,MAILADRESSE,TYP) VALUES (" & $s_Row_txt & ")" & _
" ON DUPLICATE KEY UPDATE `ERF_DAT` = (" & "'" & $s_Row_txt_t1[2] & "'" & ") ," & _
"`SB_MA` = (" & "'" & $s_Row_txt_t1[3] & "'" & ")," & _
"`AG_NR` = (" & "'" & $s_Row_txt_t1[4] & "'" & ")," & _
"`KU_NR` = (" & "'" & $s_Row_txt_t1[5] & "'" & ")," & _
"`MAILADRESSE` = (" & "'" & $s_Row_txt_t1[6] & "'" & ")," & _
"`TYP` = (" & "'" & $s_Row_txt_t1[7] & "'" & ")"
;MsgBox(0,"",$sQuery)

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

_MySQL_Real_Query($MysqlConn, $sQuery)

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

gruß gmmg

Beiträge von gmmg

Mysql Insert + Update Data

Mysql Insert + Update Data

Mysql Insert + Update Data

Zip entpacken

Klick

Klick

Mysql Insert + Update Data

Mysql Insert + Update Data

Mysql Insert + Update Data

Mysql Insert + Update Data

Mehrere Programme installieren und weiter klicken.

Mehrere Programme installieren und weiter klicken.

Automatische installation fileinstall

Automatische installation fileinstall

Habe Probleme mit der Ftp Connect/Download sache

Icon-editor

Icon-editor

Mysql Insert + Update Data

Mysql Insert + Update Data

Mysql Insert + Update Data