Beiträge von Sonderbaar

Hallo zusammen,

ich möchte gerne einen String "stückeln".

Folgender String dient als Beispiel, die Zahlen können variieren, der Aufbau ist aber immer gleich... 1 Nummern-Block "1111111-010" gefolgt von einem ";"

Ein Block darf aus maximal 195 Zeichen oder 15 Nummernblöcken bestehen und müssten dann in je eine Variable gesteckt werden.

Also quasi so (bei 30 Blöcken):

Variable1 = 1111111-010; 2222222-020; 3333333-030; 1111111-010; 2222222-020; 3333333-030; 1111111-010; 2222222-020; 3333333-030; 1111111-010; 2222222-020; 3333333-030; 1111111-010; 2222222-020; 3333333-030;

Variable2 = 1111111-010; 2222222-020; 3333333-030; 1111111-010; 2222222-020; 3333333-030; 1111111-010; 2222222-020; 3333333-030; 1111111-010; 2222222-020; 3333333-030; 1111111-010; 2222222-020; 3333333-030;

Allerdings kann es auch vorkommen, dass der String nur 18 Nummernblöcke hat (wären dann also 2 Variablen). Es kann auch vorkommen, dass nur ein 3 Nummernblöcke vorkommen (wäre dann also 1 Variable)

Habe ich es soweit verständlich erklärt?

1111111-010; 2222222-020; 3333333-030; 1111111-010; 2222222-020; 3333333-030; 1111111-010; 2222222-020; 3333333-030; 1111111-010; 2222222-020; 3333333-030; 1111111-010; 2222222-020; 3333333-030; 1111111-010; 2222222-020; 3333333-030; 1111111-010; 2222222-020; 3333333-030; 1111111-010; 2222222-020; 3333333-030; 1111111-010; 2222222-020; 3333333-030; 1111111-010; 2222222-020; 3333333-030; 1111111-010; 2222222-020; 3333333-030; 1111111-010; 2222222-020; 3333333-030; 1111111-010; 2222222-020; 3333333-030; 1111111-010; 2222222-020; 3333333-030; 1111111-010; 2222222-020; 3333333-030; 1111111-010; 2222222-020; 3333333-030; 1111111-010; 2222222-020; 3333333-030; 1111111-010; 2222222-020; 3333333-030; 1111111-010; 2222222-020; 3333333-030; 1111111-010; 2222222-020; 3333333-030;

Ah sorry, ich hatte nich drauf geachtet, dass XLS nicht unterstützt wird und auch nicht kontrolliert... jetzt hängt sie als ZIP dran...

3.3.14.2

SciTE Version 3.6.0

geupdated!!! Problem behoben! Danke für den "Hinweis"

Hallo zusammen,

ich hätte da mal gerne (mal wieder) eine Hilfestellung bei: _Excel_RangeFind($workbook_tagaktuell, "Wert", "I:I")

Gesucht werden soll der Feldinhalt: Ges-Summe Blstg:

Letztlich brauche ich hier nur die Zeile wo der Text zu finden ist, dann muss ich nur den Wert aus Spalte "J" in der selben Zeile auslesen.

Leider erhalte ich folgenden Fehlermeldung...

"C:\Program Files (x86)\AutoIt3\Include\Excel.au3" (656) : ==> The requested action with this object has failed.:

$aResult[$iIndex][1] = $oMatch.Name.Name

$aResult[$iIndex][1] = $oMatch^ ERROR

Anbei die Excel.xls

Wo ist der Fehler?

Local $oExcel1 = _Excel_Open(True, False, True, True, True)
Local $workbook_tagaktuell = _Excel_BookOpen($oExcel1, @Scriptdir & "\excel.xls", False, True)
$ergebnis = _Excel_RangeFind($workbook_tagaktuell, "Ges-Summe Blstg:", "I:I")
_arraydisplay($ergebnis)

Habe es selbst hinbekommen...

Es hat ein With $adors und ein EndWith gefehlt...

Danke trotzdem!

Kann ich doch nicht, weil $wert_KST sich doch ändert???!

Das scheint aber mit der zweiten Schleife zusammen zu hängen... wenn ich die Query1 ausführen lasse, und er soll dieselbige aufgrund der Schleife nochmal durchlaufen (er müsste ja 5x hintereinander das selbe Anzeigen) erhalte ich wieder:

The requested action with this object has failed.:

Mit den 5 ist ein Zufall... in dem Ordner wo ich mir Werte herhole sind 50 drin...

also 0001-0050... in der Access-DB finden sich diese Werte auch wieder, allerdings in 5 unterschiedlichen Abfragen.

Letztlich ist das Ziel diese 5 Querys nacheinander für die Werte 0001-0050 abzufragen.

Daher war mein Ansinnen, die 5 Querys zu schreiben, und diese dann per Schleife zu durchlaufen.

Hallo ihr lieben,

ich stehe irgendwie auf dem Schlauch...

Ich habe in einem Pfad ein paar Xls-Dateien. letztlich brauche ich von denen Dateinamen bestimmte werte... in meinem Fall also 0001-0005 ohne XLS und ohne Pfad... klappt alles supi...

Beispielwerte:

0001

0002

0003

0004

0005

Mit diesen (in diesem Beispiel 5) Werten möchte ich gerne eine Access-Datenbank abfragen... insgesamt 5 querys, die sich also auf 5 abfragen beziehen, aber immer mit dem Werten 0001-0005.

Zur verdeutlichung... Query1-5 soll im ersten Schritt mit Wert 0001 durchlaufen werden...

Danach soll Query1-5 mit 0002 durchlaufen werden usw.

Um es einfacher zu haben, habe ich die erste Schleife die die Werte 0001-0005 durchläuft auf 1 beschränkt, da es schon beim ausführen der Querys hapert...

Fehlermeldung:

The requested action with this object has failed.:

$adors.Open ($test, $ado)

$adors^ ERROR

Ersätze ich den Wert $test durch $query1 funktioniert es, aber halt nicht als Schleife...

Hilfe

#include <Excel.au3>
#include <Array.au3>
#include <date.au3>
#include <file.au3>

Dim $rmsammeln

$dbname = "C:\datei_vergleich.mdb"

$ado = ObjCreate( "ADODB.Connection" )
$ado.Open ("Driver=Microsoft Access Driver (*.mdb); DBQ=" & $dbname)
$adors = ObjCreate( "ADODB.RecordSet" )    ; Create a Record Set to handles SQL Records

$sInputPfad_tagaktuell = "C:\eingabedateien\"
$array_tagaktuell[5] = ["0001","0002","0003","0004","0005"] ;_FileListToArray($sInputPfad_tagaktuell, "*", 1)

For $i = 1 to 1
;$wert_KST = StringTrimRight(StringTrimLeft($array_tagaktuell[$i],4),4)
$wert_KST = $array_tagaktuell[$i]
$query1 = "select A_Nr, Afo from tmp_abf1 where wert_ist='" & $wert_KST & "'"
$query2 = "select A_Nr, Afo from tmp_abf2 where wert_ist='" & $wert_KST & "'"
$query3 = "select A_Nr, Afo from tmp_abf3 where wert_ist='" & $wert_KST & "'"
$query4 = "select A_Nr, Afo from tmp_abf4 where wert_ist='" & $wert_KST & "'"
$query5 = "select A_Nr, Afo from tmp_abf5 where wert_ist='" & $wert_KST & "'"

For $j = 1 to 5
    $test = "$query"&$j
$adors.Open ($test, $ado)
While not $adors.EOF
                $uebergabe1 = $adors.Fields(0).Value
                $uebergabe2 = $adors.Fields(1).Value
                $sammeln = $sammeln & $uebergabe1 & "-" & $uebergabe2 & "; "

$adors.MoveNext
WEnd
$sammeln= StringTrimRight($sammeln,2)
msgbox(0,"", $sammeln)
;~ $adors.close()
;~ $adors = 0
Next
Next

Offenbar bin ich einfach zu blöd... Ich habe "unabhängig von der Benutzersitzung" und mit "Priviligierten Rechten" angehakt gehabt...

Ohne die Beiden macht der Taskplaner genau das was er soll...

Zitat von autoiter

Das könnten etwa Oscar oder Raupi machen.

Na dann hoffe ich mal, dass es einer von beiden nachher macht

Also soweit ich es erruieren konnte wird es tatsächlich bei getrennter Verbindung ausgeführt...

Ich würde glaube ich vor dem ExitLoop den If $pid wieder auf "" setzen?!

Ich bin natürlich auch für andere Vorschläge offen, vielleicht wäre es hilfreich, wenn du mein Thema doch in die Hilfe verschieben würdest?! Bei Off-Topic guckt man ja doch nicht sooft rein...

Macht sowas Sinn? Quasi ein eigener Taskplaner?

Nehmen wir mal an, dieses Script läuft rund um die Uhr. Jeden Tag um 15:30h soll die ShellExecute ausgeführt werden... danach soll es logischweise nicht nochmal ausgeführt werden, es wir ja schließlich das Access-Makro ausgeführt... wäre suboptimal, wenn es mehrfach ausgeführt wird... danach soll das Script quasi "schlafen" bzw. bis zum nächsten Tag die Zeit abfragen... ist 15:30h wieder 1x ausführen, dann bis zum nächsten Tag ruhen... mir scheint es so besser zu funktionieren als über den Windows-Taskplaner...

#include<Date.au3>
Local $pid
While 1
    While 1
            If $pid = "" Then
            If @hour = "15" And @MIN = "30" Then
                $pid = ShellExecute("C:\script.cmd")
                    ExitLoop
            EndIf
            Else
            EndIf
    WEnd
Sleep(30000)
WEnd

EDIT: Das Access-Makro ist so gebaut, dass es am Ende Access verlassen soll! Ich sollte dann wohl besser $pid wieder leeren oder? Oder doch lieber mit IfProcessExists arbeiten???

Hallo liebe Gemeinde,

ich würde gerne wissen wollen, ob mir jemand einen Tipp geben könnte, wie ich am besten ein Access-Makro auf einem Terminalserver 2008 automatisch starte.

Der Taskplaner bringt mich nicht wirklich ans Ziel, denn Access wird so offenbar im Hintergrund ausgeführt, so dass das Makro garnicht ausgeführt wird.

Würde es über Autoit Sinn machen? Quasi Batchdatei mittels Taskplaner aufrufen, der dann Autoit aufruft und Autoit ruft das Access-Makro auf geht irgendwie auch nicht...?!

EDIT: Benutzer ist "nur" getrennt, also weiterhin "angemeldet"

Zitat von autoBert

Zum eigentlichen Problem vermute ich, das sich mit dem aufteilen der Datei in mundgerechte Häppchen (4 * 1/4 oder kleiner) der Schluckauf von Heidi verhindern läss

Aber um Heidi mal in Unschuld zu waschen, selbst mit einem direkten Insert in die Tabelle kriege ich genauso (viele/wenige) Datensätze rein wie mit Heidi... (stand ja schon im Erstellungsthread)

#include <File.au3>
#include <Array.au3>
#include<_sql.au3>
Local $array

;~ (@Scriptdir & "\crm.csv", $array, Default )
$lines = _FileCountLines(@Scriptdir & "\crm.csv")
;~ $ausgabefile = FileOpen(@ScriptDir & "\crm_sql_import.sql", 2)

$adoc=_SQL_Startup()
$db=_SQL_Connect($adoc,"IP","Tabelle","username","password")
If _SQL_GetErrMsg() Then
    MsgBox(0,"error","could not connect to database")
    Exit
EndIf


For $i = 2 To $lines
$array = StringSplit(FileReadLine(@Scriptdir & "\crm.csv", $i), ";",1)

$string = 'INSERT INTO "CRM" ("KUNDEN_NR", "SPRACHE", "KUNDEN_NAME", "FIRMEN_BEZEICHNUNG", "STRASSE",' & _
'"NATIONALITAETS_KZ", "POSTLEITZAHL", "ORT1", "POSTFACH", "POSTLEITZAHL_POSTFACH", "STRASSE_POSTFACH", "PLZ_PF_ORT", "ANSPRECHPARTNER",' & _
'"E_MAIL", "KUNDEN_ART", "TELEFON", "ANREDE", "TITEL", "NACHNAME", "VORNAME", "TEL", "MOBIL", "EMAIL", "INDEX")' & _
' VALUES (' & "'" & $array[1] & "','" & $array[2] & "','" & $array[3] & "','" & $array[4] & "','" & $array[5] & "','" & $array[6] & "','" & $array[7] & _
"','" & $array[8] & "','" & $array[9] & "','" & $array[10] & "','" & $array[11] & "','" & $array[12] & "','" & $array[13] & _
"','" & $array[14] & "','" & $array[15] & "','" & $array[16] & "','" & $array[17] & "','" & $array[18] & "','" & $array[19] & "','" & $array[20] & _
"','" & $array[21] & "','" & $array[22] & "','" & $array[23] & "','" & $array[24]  & "');"

 _SQL_Execute($adoc, $string)

;~ FileWrite($ausgabefile, 'INSERT INTO "CRM" ("KUNDEN_NR", "SPRACHE", "KUNDEN_NAME", "FIRMEN_BEZEICHNUNG", "STRASSE",' & _
;~ '"NATIONALITAETS_KZ", "POSTLEITZAHL", "ORT1", "POSTFACH", "POSTLEITZAHL_POSTFACH", "STRASSE_POSTFACH", "PLZ_PF_ORT", "ANSPRECHPARTNER",' & _
;~ '"E_MAIL", "KUNDEN_ART", "TELEFON", "ANREDE", "TITEL", "NACHNAME", "VORNAME", "TEL", "MOBIL", "EMAIL", "INDEX")' & _
;~ ' VALUES (' & "'" & $array[1] & "','" & $array[2] & "','" & $array[3] & "','" & $array[4] & "','" & $array[5] & "','" & $array[6] & "','" & $array[7] & _
;~ "','" & $array[8] & "','" & $array[9] & "','" & $array[10] & "','" & $array[11] & "','" & $array[12] & "','" & $array[13] & _
;~ "','" & $array[14] & "','" & $array[15] & "','" & $array[16] & "','" & $array[17] & "','" & $array[18] & "','" & $array[19] & "','" & $array[20] & _
;~ "','" & $array[21] & "','" & $array[22] & "','" & $array[23] & "','" & $array[24]  & "');" & @CRLF)

Next

CREATE TABLE "CRM" (
    "KUNDEN_NR" NVARCHAR(50) NULL DEFAULT NULL,
    "SPRACHE" NVARCHAR(50) NULL DEFAULT NULL,
    "KUNDEN_NAME" NVARCHAR(50) NULL DEFAULT NULL,
    "FIRMEN_BEZEICHNUNG" NVARCHAR(50) NULL DEFAULT NULL,
    "STRASSE" NVARCHAR(50) NULL DEFAULT NULL,
    "NATIONALITAETS_KZ" NVARCHAR(50) NULL DEFAULT NULL,
    "POSTLEITZAHL" NVARCHAR(50) NULL DEFAULT NULL,
    "ORT1" NVARCHAR(50) NULL DEFAULT NULL,
    "POSTFACH" NVARCHAR(50) NULL DEFAULT NULL,
    "POSTLEITZAHL_POSTFACH" NVARCHAR(50) NULL DEFAULT NULL,
    "STRASSE_POSTFACH" NVARCHAR(50) NULL DEFAULT NULL,
    "PLZ_PF_ORT" NVARCHAR(50) NULL DEFAULT NULL,
    "ANSPRECHPARTNER" NVARCHAR(50) NULL DEFAULT NULL,
    "E_MAIL" NVARCHAR(50) NULL DEFAULT NULL,
    "KUNDEN_ART" NVARCHAR(50) NULL DEFAULT NULL,
    "TELEFON" NVARCHAR(50) NULL DEFAULT NULL,
    "ANREDE" NVARCHAR(50) NULL DEFAULT NULL,
    "TITEL" NVARCHAR(50) NULL DEFAULT NULL,
    "NACHNAME" NVARCHAR(50) NULL DEFAULT NULL,
    "VORNAME" NVARCHAR(50) NULL DEFAULT NULL,
    "TEL" NVARCHAR(50) NULL DEFAULT NULL,
    "MOBIL" NVARCHAR(50) NULL DEFAULT NULL,
    "EMAIL" NVARCHAR(50) NULL DEFAULT NULL,
    "INDEX" NVARCHAR(50) NULL DEFAULT NULL
)
;

Zitat von Bitnugger

Ich vermute, wenn du keinen PrimaryKey setzt, wird es auch keine Duplikate geben, sondern bereits vorhandene Einträge werden dann einfach überschrieben.

Echt das wäre immerhin eine plausible Erklärung, ich prüfe

ja das ist eine gute Idee... aber sollten sie nicht trotzdem geschrieben werden, weil ja kein Primarykey gesetzt ist? SQL würde Duplikate doch nur rausschmeißen, wenn ein Primarykey gesetzt ist oder bin ich auf dem Holzweg?

Ich vergleiche einfach mal die Werte...

Hallo zusammen,

ich poste mein Anliegen einfach mal hier in Offtopic, da es denke ich nicht am Script liegt...

ich hole mal aus... ich habe eine CSV-Datei, Semikolon-getrennt, in der ca 4.000 Kundendatensätze drin sind...

Diese CSV-Datei ziehe ich mir mit Autoit und per Schleife und Stringsplit hole ich mir all diese Zeilen in jeweils in ein Array und fummel mir dann einen Insert-String zusammen damit ich diesen dann in eine mssql-db per _sql.au3 reinpumpen kann.

Um den ganzen jetzt vorzugreifen... ich habe mir vorher ein SQL-File angelegt, in diesem SQL sind auch diese über 4.000 Inserts enthalten!!! Lade ich dieses SQL z.B. mit Heidi und lasse den Import laufen, erhalte ich nur etwas knapp über 1.600 Einträge in die Datenbank-Tabelle.

Genauso verhält sich auch, wenn ich ohne SQL-File direkt in die Tabelle den Insert mit _SQL_Execute pumpen will... genau die selbe Anzahl an Datensätzen wie über Heidi.

Da der Inhalt des SQL-Files ja die korrekte Anzahl enthält muss der Fehler also in der Tabelle liegen??? (hier ist kein Primärschlüssel oder sowas gesetzt).

Hat jemand ne Glaskugel, was das sein könnte??? Ich bin für jede Idee dankbar...

Zitat von Oscar

So:

AutoIt

Local $sText = "Personalien / Kontaktdaten des Kandidaten" & @CRLF & "Name / Vorname" & @CRLF & "MUSTER HANS PETER" & @CRLF & "Staatsangehörigkeit" & @CRLF & "CH" & @CRLF & "Adresse" & @CRLF & "Musterstr. 9, 8001 Zürich" & @CRLF & "Mobiltelefon" & @CRLF & "+41 79 999 99 99" & @CRLF

Local $sName = StringRegExpReplace($sText, '(?s).+Name / Vorname\v+(.+?)\v.*', '$1')
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $sName = "' & $sName & '"' & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
Local $sStaatsangehoerigkeit = StringRegExpReplace($sText, '(?s).+Staatsangehörigkeit\v+(.+?)\v.*', '$1')
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $sStaatsangehoerigkeit = "' & $sStaatsangehoerigkeit & '"' & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
Local $sAdresse = StringRegExpReplace($sText, '(?s).+Adresse\v+(.+?)\v.*', '$1')
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $sAdresse = "' & $sAdresse & '"' & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
Local $sMobil = StringRegExpReplace($sText, '(?s).+Mobiltelefon\v+(.+?)\v.*', '$1')
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $sMobil = "' & $sMobil & '"' & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console

Oscar Regex-Gott

Zitat von Peter S. Taler

Ps: google?

Ja, den Riesen hätte ich auch befragen können, ich frage aber lieber vertraute Leute, also euch...

Eigentlich stelle ich mir das so vor, dass eine Autoit-Applikation auf Knopfdruch ein Kommando z.B. über das Laptop-Mikro entgegen nimmt, den Befehl mit Amazon verarbeitet und dann entsprechend reagiert... "Computer, starte Programm 1" (Nein ich bin kein Startrackfan ) und Programm 1 wird gestartet...

Hat schon mal jemand versucht Alexa einzubinden in Autoit?

Wenn ja, klappt es gut?

Wenn ja und klappt gut, wie?

also da ich es nicht für den Produktionseinsatz sondern privater Natur benötige, werde ich es mal mit einem Win 10 raspi probieren.

Wenn der Emulator wirklich seinen Dienst tut und der USB-Scanner auch funzt, ist doch alles Paletti...

Die Geräte von CSL werde ich mir auf jedenfall noch anschauen! Die NUCs haben Ihren Charme, keine Frage... aber für ne @home Geschichte overkilled?