Beiträge von caran
-
-
-
AutoIt
Dim $var2 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\UNINSTALL\"&$var, "DisplayName") ConsoleWrite($var2&@CRLF) If @error then ExitLoop
@error bezieht sich in diesem Fall auf ConsoleWrite und nicht auf RegRead, sprich die For/Next Schleife läuft zwangsmäßig bis 999, da ConsoleWrite nie einen Fehler zurück gibt.
Ansonsten kann ich beim Überfliegen nichts weiter erkennen.
Hi, super danke dir, leider muss ich gestehen, dass ich Hilfe hatte beim erstellen dieser Funktion und jetzt nicht weiß wie ich damit umgehen soll? Kannst du vlt. weiter helfen?
-
Hallo Zusammen,
ich habe folgendes Problem.
Ich habe ein kleines Skript gebastelt welches bisher auch gut funktioniert hat und wollte nun das Skript
an verschiedenen Rechnern ausprobieren. Problem ist, dass das Skript die erste Einheit nicht ausführt, sprich das Auslesen der Registry um
die installierten Programme auszulesen und später zu deinstallieren klappt nicht, das Programm läuft immer in den ERROR rein!
Aber wenn ich AUTOIT installiere und das Skript darüber laufen lasse funktioniert alles super Selbst nachdem ich AUTOIT wieder deinstalliere funktioniert das Skript wieder einwandfrei, beim kompilieren nehme ich auch immer die Option "Include Au3".Weiß einer woran es liegen kann?
MFG
AutoIt
Alles anzeigen#include <File.au3> #include <Array.au3> Opt("MustDeclareVars", 1) ;Die erste Einheit um einzulesen! Dim $Descritonprogram = InputBox("In control panel under Program!","Please type the CORRECT AND FULL program name from Snow Inventory Client here!") Local $aRead = "" Dim $aDefine = $Descritonprogram _Reading() _FileReadToArray(@ScriptDir & "\temp.txt", $aRead) If @error Then MsgBox(0,"temp.txt was not found","Please be ensure that 'temp.txt' is in the root folder") EndIf
AutoIt
Alles anzeigen; Die Funktion! Func _Reading() _FileCreate(@ScriptDir & "\temp.txt") if @error Then MsgBox(16,"Cannot creating temp.txt","Program will be closed") EndIf Local $file = FileOpen("temp.txt", 2) For $i= 1 to 999 Dim $var = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\UNINSTALL", $i) Dim $var2 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\UNINSTALL\"&$var, "DisplayName") ConsoleWrite($var2&@CRLF) If @error then ExitLoop If $var2<>"" Then FileWrite($file, $var2 & @CRLF) Next fileclose($file) EndFunc
-
-
@ x0r Leider bringt das nicht, da die UDF nicht "accdb" unterstützt.
-
Hi,
sorry das Ich so spät Antworte, also die Syntax ist mir schon klar, die Frage ist ich lese die CSV ein, von mir aus in ein Array, wie gebe Ich den
im Insert INto ein ?mfg
-
Hi,
ja genau so wollte Ich das auch machen nur der der Insert Syntax ist mir nicht klar -.-"
mFg
-
Hallo zusammen,
kann mir einer sagen, ob Ich eine CSV Datei in Access importieren lassen kann?
Wenn ja wie geht das, die Verbindung zu meiner DB habe Ich schon nur, im SQL BEfehl kann Ich ja schlecht sagen nimm die CSV
Viele Grüße
caran
-
Hi Oscar,
danke
Vorab als Information, die CSV Datei beinhaltet wahrscheinlich mehr als 1000 Datensätze mit bis zu 44 Spalten.Es gibt zwei Spalten im Array, die eine beinhaltet Seriennummern des BIOS (Spalte 7) und die andere die Seriennummer des Gehäuses(Spalte 44).
Zunächst muss in der Spalte 44 nach Seriennummern gesucht werden die "1S" beinhalten, sollte das der Fall sein so soll diese gelöscht werden, danach
sollte die Seriennummer auf die letzen 7-8 letzen Zeichen gekürzt werden, hier ein Beispiel => Ursprungsform ( 1S1234567ABCEDF1 ) nach der Formatierung => (ABCEDF1).
Danach soll diese Seriennummer mit der in Spalte 7 abgeglichen werde, sollte Spalte 44 abweichen von der Spalte 7, dann soll die Spalte 44 Ihren Wert mit den in Spalte 7 ersetzen.Die Überprüfungen zu programmieren wäre wahrscheinlich kein Problem, jedoch kann Ich in dem Thema "Array" einpacken gehen....
Viele Grüße
caran
-
Kann mir einer noch helfen, wie Ich die die eingelesenen Daten in Array lösche, sprich Ich möchte das er immer nach Größe des Sheets die Spalte A und Spalte B auf gleichheit prüft und evtl.
Werte ersetzt ? -
Hi Oscar,
danke! Du bist echt der beste, hatte gestern schon den ganzen Tag Kopfschmerzern und es funktioniert, du hast mich gerettet,DANKE!!
-
Global Const $CSVFILE = "C:\Users\***\Desktop\example.csv"
Global Const $DELIM = ";"
Global $i, $arrContent, $arrLine, $res = 0$res = _FileReadToArray($CSVFILE, $arrContent)
If $res = 1 Then
For $i = 1 To UBound($arrContent) +1
$arrLine = StringSplit($arrContent[$i], $DELIM)
If IsArray($arrLine) And $arrLine[0]<>0 Then
_ArrayDisplay($arrLine)
Else
MsgBox(48, "", "Error splitting line!")
EndIf
Next
Else
MsgBox(48, "", "Error opening file!")
EndIfGuck dir mal den Code an
-
$res = _FileReadToArray($CSVFILE, $arrContent)
Hab Ich ja? -
Hallo zusammen,
ich habe ein Problem beim Erstellen eines 2D Arrays der mir ca. 45 Datensätze nicht untereinader ausgeben soll sondern nebeneinander und das mit mehreren Datensätzen.
Siehe Quelltext:Opt("MustDeclareVars", 1)
Global Const $CSVFILE = "C:\Users\***\Desktop\example.csv"
Global Const $DELIM = ";"
Global $i, $arrContent, $arrLine, $res = 0$res = _FileReadToArray($CSVFILE, $arrContent)
If $res = 1 Then
For $i = 1 To UBound($arrContent) +1
$arrLine = StringSplit($arrContent[$i], $DELIM)
If IsArray($arrLine) And $arrLine[0]<>0 Then
_ArrayDisplay($arrLine)
; do something with the elements of the line
Else
MsgBox(48, "", "Error splitting line!")
EndIf
Next
Else
MsgBox(48, "", "Error opening file!")
EndIfKann mir einer helfen?
Vielen Dank!
-
Hallo, ich bin mir sicher, da ich eine Error Funktion eingebaut habe, die mir anzeigt, wenn die DB nicht geöffnet werden kann.
Das eigentliche Problem ist, dass ich ein Button am programmieren bin, der mir die Daten aus der DB in ein 2D Array anzeigen soll, jedoch zeigt der mir jede der Daten in jeweils eine ganze Tabelle/Array an, wie bekomm ich das hin, dass er mir die Daten in nur ein Array anzeigt?MFg
-
Das ist mir klar, aber meine Frage war nicht ob das Sinn macht, was ich da tue, sondern ob mir einer Helfen kann mit AutoIT die Datenbank anzusprechen ;=)
-
Ich habe eine SQL Datenbank in Access erstellt, nun muss ich die Daten in der InputBox in diese Datenbank reinschreiben und da komme ich grade nicht weiter.
-
Guten Morgen zusammen,
ich bin in der Programmierung neu und habe ein Script erstellt. Dieses Script hat 3 Fragen bzw. 3 InputBoxen, die Antworten möchte per "Speichern" Button
ich eine Access Datenbank wegschreiben, wie funktioniert das genau?Quellcode:
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <SQLite.au3>#Region ### START Koda GUI section ### Form=c:\users\*\documents\autoit\erstegui.kxf
$Erste = GUICreate("Erste", 525, 336, 193, 149)
GUISetBkColor(0xFFFFFF)
$Label1 = GUICtrlCreateLabel("Mein erstes Programm", 16, 16, 207, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Reference Sans Serif")
Global $IO1 = GUICtrlCreateInput("", 24, 72, 129, 21)
Global $IO2 = GUICtrlCreateInput("", 24, 128, 129, 21)
Global $IO3 = GUICtrlCreateInput("", 24, 184, 129, 21)
$Radio1 = GUICtrlCreateRadio("Vorkenntnisse vorhanden", 200, 72, 161, 17)
$Radio2 = GUICtrlCreateRadio("Bist du bereit auch Sonntags zu Arbeiten (24/7)", 200, 128, 300, 17)
$Radio3 = GUICtrlCreateRadio("Wärst du einverstanden, wenn wir dich ausspionieren?", 200, 184, 300, 17)
$Exit = GUICtrlCreateButton("Exit", 16, 264, 75, 25)
$Button2 = GUICtrlCreateButton("Speichern", 112, 264, 107, 25)
$Label2 = GUICtrlCreateLabel("Wie heitßt du?", 24, 48, 73, 17)
$Label3 = GUICtrlCreateLabel("Interessierst du dich für Technik?", 24, 104, 161, 17)
$Label4 = GUICtrlCreateLabel("Trage deine sonstigen Interessen ein:", 24, 160,2000, 17)
$Label5 = GUICtrlCreateLabel("Welche Interessen oder Ziele hast du?", 200, 48, 187, 17)
GUICtrlCreateCombo("Wähle aus!", 200, 224, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1,"mit Abschluss|ohne Abschluss|evt. Vorkenntnisse")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Exit
Exit
Case $Button2
Local $oRS
Local $oConn
$oConn = ObjCreate("ADODB.Connection")
$oRS = ObjCreate("ADODB.Recordset")
$oConn.Open("Driver={Microsoft Access Driver (*.mdb, *.accdb)};Dbq=C:\Users\*\Documents\AutoIT\First Steps\SafeMe.accdb")
$oRS.Open("INSERT INTO SafeMeMI (Name, Interessen, Sonstiges) VALUES (" & GUICtrlRead($IO1) & "," & GUICtrlRead($IO2) & "," & GUICtrlRead($IO3) &")", $oConn, 1, 3)
;MsgBox(0,"Test",GUICtrlRead($IO1))
EndSwitch
WEnd -
Guten Tag zusammen,
ich habe momentan ein Problem mit nutzen des Befehls "_excelsheetreadtoarray", dieser Befehl ist nicht mehr unter der
"Excel.au3" zu finden, kann mir einer helfen, wo ich diesen finden kann?Mfg