Beiträge von Alina

Was sagt mir da die Hilfe, wenn ich überlege, er gibt Hex aus und ich möchte einen String?
Ich war auf in der Hilfe, habe bei [Index] "Hex" eingetippt und schwups, war da doch ein Beispiel, wie man das lösen kööööönnnte.

#include <String.au3>


Local $String = "Ich mag AutoIt3"
Local $Hex = _StringToHex($String)
MsgBox(0, "Hex", "Originaler String: " & $String & @LF & " Hex: " & $Hex)
ConsoleWrite($Hex)


$Hex = "46726F686520756E6420626573696E6E6C6963686520576569686E61636874737A656974"
$String = _HexToString($Hex)
MsgBox(0, "Hex", "Originaler Hex: " & $Hex & @LF & " String: " & $String)

Moin Moin.

Welche Marke ist der Scanner? Wir nutzen Handscanner und da kann man den Scanner via Barcodes konfigurieren.
Ich habe im Büro das so eingestellt, das ich einmal den Button auf dem Handscanner aktiviere, damit er lesebereit ist und dann lege ich z. B. eine Akte unter den Scanner und er öffnet mir dazu die Unterlagen. Aber "erkennen" mußte das Skript nie etwas, denn der Handscanner wurde automatisch erkannt.

Folgendes sollte doch reichen:

$Input = InputBox("Barcode", "Bitte scanne den Zehner-Barcode", "10", "", -1, -1, 0, 0)
		 ;$_read = GUICtrlRead($Input)


    If $Input = 10 Then MsgBox(0, "", "Tue was 10 sagt.")
    If $Input = 20 Then MsgBox(0, "", "Tue was 20 sagt.")
    If $Input = 30 Then MsgBox(0, "", "Tue was 30 sagt.")
    If $Input = 40 Then MsgBox(0, "", "Tue was 40 sagt.")
    If $Input = 50 Then MsgBox(0, "", "Tue was 50 sagt.")
    If $Input = 60 Then MsgBox(0, "", "Tue was 60 sagt.")
    If $Input = 70 Then MsgBox(0, "", "Tue was 70 sagt.")
    If $Input = 80 Then MsgBox(0, "", "Tue was 80 sagt.")
    If $Input = 90 Then MsgBox(0, "", "Tue was 90 sagt.")
    If $Input = 100 Then MsgBox(0, "", "Tue was 100 sagt.")

Hallo autoiter.

Ich habe ein grafisches Managment-Tool und damit komme ich auch gut klar und ich kann da auch alles umsetzen. Auch die Ausgaben der drei Punkte die ich in Beitrag 11 erwähnt habe, bekomme ich dort super hin, genauso wie die Consolenausgabe. Nur halt bekomme ich es noch nicht hin, das in AutoIt zu scripten.
.
Habe mir nun auch Buchmaterial zugelegt. Ist zwar über SQL allgemein, aber es ist sehr infoirmativ. Vielleicht gibt es ja jemanden, der noch ein gutes SQLite-Buch empfehlen kann. Ich bin da offen und da das dann Fachmetarial ist, geht es ja nicht in meine Geldbörse, solange ich es nicht übertreibe.

Moin horphi.
Magst Du den Beitrag noch als "gelöst" markieren?

Wollte nur kurz mitteilen. Auch ich bin gerade dabei SQLite zu lernen und anzuwenden.
Siehe : "DB-2-ListView" so sollte es in der SuFu zu finden sein.

So, nun habe ich einen neuen Datensatz, den ich eigentlich in die DB packen könnte: Titel: "SQL für Dummies"

SQL für Dummies|Allen G. Taylor|Wiley|01.06.2014|Fachbuch|24.95|Taschenbuch|9783527710201|440||..|..|AZR1|||N|0

Vielleicht komme ich so den Problemen DELETE, UPDATE und INSERT auf die Schliche.
Und wenn nun noch einer sagt, das Frau nicht bemüht ist zu lernen, dann komm ich aber mit dem Kochlöffel meiner Groß-Mimi und dann ...

cool

Es ist alles Gesagt und den Admins kommt mein Dank dazu, genauso wie den Spender !!! GRATULATION !!!

Zitat von Xorianator

Schließe mich an.
Nach wie vor ein tolles Forum, auf hoffentlich etliche weitere Jahre
Großen Dank auch an Gun-Food, peethebee, alle Moderatoren und Poweruser die hinter dem stehen, was wir präsentiert bekommen.
Prost auf euch!

Hallo BugFix.

Habe heute die Firma gefragt, die unseren C-Admin stellt und wo wir immer unsere HW her bekommen. Dort sagte man mir, bei Pearl (Versandhaus) anrufen, sich dort beraten lassen und kaufen, da Du da problemlos zurück senden kannst, so es dann doch nicht funktionieren sollte, wobei er sagt, das man das auch ortsnahe bekommen sollte. Dänemark halt, da ist es dann doch anders. Aber viellicht paßt das ja irgendwo bei Dir, das dort ein ortsnaher Markt ist für solche Probleme. Nur nicht Saturn oder Mediamarkt, die beraten, zumindest in Flensburg und Kiel echt vom allerschlimmsten.

Moin-Moin.

So, nachdem es gekommen ist wie es zu erwarten war und ich acht Stunden manuell verglichen habe am Monitor, bin ich satt von rechter Monitor <--> linker Monitor.
Hoffe das ich einen Tag in der Woche mal frei machen kann, denn wenn ich [DELETE], [UPDATE] und [INSERT] im Kopf verstanden habe, ist mein freier Tag gerettet und ich kann weiter Scripten.
Aber es ist spannend Neues zu lernen und wie die älteren User wissen, also die die schon paar Jahre hier sind, liebe ich es zu lernen. Und Buch für SQLite ist bestellt. Wozu hat man einen Arbeitgeber, der Lehr- und Lernmaterial bis zu einer bestimmten Summe übernimmt. Wie ich dann das, was in dem Buch steht, scripten kann, das wird sich zeigen.

Hallo.

Wenn Du es nicht selber machen möchtest, weil Du Spass daran hast, schau mal hier. <---- DA

Aber das was Du da vor hast ist eine gute Idee. Ich habe mich mal mit dem sog. Kioskmodus auseinander gesetzt. War echt hart. Aber gut. Also mach weiter.

Erhlich? Ich habe Tidy noch nicht genutzt.

Aber das mit der Zeile weg oder dazu, wäre für mich nicht das Problem. Ich habe mir schon von Anfang an angewöhnt, bei Texten immer mit drei mal <Return> zu enden.
Das liegt am Beruf. Erst alles in Stichworten tippen, dann diese von oben nach unten im gleichen Dokument ausarbeiten. So rutschen die Stichwörter automatisch nach oben an den ausgearbeiteten Text bis zum Ende. Wenn ich fertig bin x-mal <Entf> und dann drei mal <Return>. So braucht man nur die oberste Hälfte vom Monitor und unten kann man z. B. ein Ticketsystem laufen lassen, das man evtl. gleichzeitig überwachen muss. Okay, zweiter Monitor, aber der wird für andere Sachen bereits auf Arbeit genutzt.

Und ob Tidy bei meinem deutschsprachigen und deutschdenkenden Hirn-Wirr-Warr überhaupt etwas bringen würde?!

Moin Moin.

Ich habe heute früh und nachmittags @Kanashius Script mir mal angeschaut.

Lauffähig ist: 1-18 // 23 ff
Problem bei : 19 - 22

#include <SQLite.au3>
#include <SQLite.dll.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
Opt("GUIOnEventMode", 1)
global $SQLBefehle="# Alles hinter der # wird als Kommentar gewertet" _
&@crlf&"# Spaltennamen: ID , Titel , Autor , Verlag , Erscheinungsdatum , Genre , preis , Einband , ISBN , Seiten , Lager , Serie , Bestellt , Gelesen , Note , Zusatz , Information, Ausgeliehen_an, Ausgeliehen_am,Ausgeliehen_bis" _
&@crlf&"# select * from Buchverwaltung                                                #Buchverwaltungtabelle anzeigen" &@crlf _
&@crlf&"# select * from Buchverwaltung where Titel='Bedroht'                          #Titel anzeigen" _
&@crlf&"# select * from Buchverwaltung where Autor='Strobel, Arno'                    #Autor anzeigen" _
&@crlf&"# select * from Buchverwaltung where Verlag='Loewe'                           #Verlag anzeigen" _
&@crlf&"# select * from Buchverwaltung where Erscheinungsdatum>'2013.12.31'           # Alles nach diesem Tag" _
&@crlf&"# select * from Buchverwaltung where Autor LIKE '%no'                         # Suchen nach allem mit *no" _
&@crlf&"# select * from Buchverwaltung where Erscheinungsdatum LIKE '2014.__.__'      #alle 2014-ner" _
&@crlf&"# select * from Buchverwaltung where id<100                                   #Bücher Anzeigen mit ID<100" _
&@crlf&"# select * from Buchverwaltung WHERE ISBN BETWEEN '9783453268011' AND '9783453268013'         #ISBN-Suche" _
&@crlf&"# select * from Buchverwaltung WHERE Gelesen = 'J'                            #Anzeigen der gelesenen Bücher" _
&@crlf&"# DELETE * from Buchverwaltung where id=2                                     # offenes Problem " _
&@crlf&"# UPDATE Buchverwaltung SET id = '2' WHERE id='3'                             # offenes Problem " _
&@crlf&"# SELECT count('*') FROM Buchverwaltung WHERE ID                              # offenes Problem " _
&@crlf&"# INSERT INTO Buchverwaltung) VALUES ()'50','Beispielbuch','Schreiber','Buchverlag','2016.02.29','Beispielgenre','47.11','Tuete','1234569874123','500','R1-F1','','','N','','','','','',''    # offenes Problem "
global $SqlGui,$SqlGui_Edit3_1
global $aData = "",$iRow = "",$iClumn = ""
;Hauptfenster, in der Listview werden die Selects angezeigt
$MainGui=GuiCreate("Example",800,600)
$MainGui_MainListView=GUICtrlCreateListView("",5,5,790,570)
$Button=GUICtrlCreateButton("Konsole",5,575)
GUICtrlSetOnEvent(-1,"sqlkonsole")
GUISetOnEvent($GUI_EVENT_CLOSE, "MainGui_Close")
GUISetState()
;SQL-Laden
_SQLite_Startup("sqlite3.dll")
;Datenbank öffnen
$hDatabase = _SQLite_Open(@ScriptDir&"\buchverwaltung.db") ;Datenbank öffnen
While sleep(10)
WEnd
Func MainGui_Close()
	_SQLite_Close($hDatabase)
	exit
EndFunc
;Konsolefenster
Func sqlkonsole()
	;Fenster erstellen
	$SqlGui = guicreate("SQL-Konsole", 500, 600, 0, 0, $WS_CAPTION + $WS_SYSMENU + $WS_SIZEBOX + $WS_MINIMIZEBOX + $WS_MAXIMIZEBOX, -1, $MainGui);$WS_POPUP; +$WS_MINIMIZEBOX+$WS_MAXIMIZEBOX,$WS_EX_ACCEPTFILES)
	GUISetOnEvent($GUI_EVENT_CLOSE, "closeSqlGui")
	;Edit, für die Sql-Befehle
	$SqlGui_Edit3_1 = guictrlcreateedit("# Dies ist ein Kommentar"&@crlf&"# Einfach das # vor der Zeile entfernen und SEND drücken"&@crlf&@crlf&$SQLBefehle&@crlf, 10, 10, 480, 540)
	GUICtrlSetResizing(-1, BitOR(2, 64, 32, 4))
	$SqlGui_Button3_1 = guictrlcreatebutton("Send", 10, 560, 100)
	GUICtrlSetResizing(-1, 768 + 2)
	guictrlsetonevent(-1, "sqlsend")
	$SqlGui_Button3_2 = guictrlcreatebutton("Close", 120, 560, 100)
	GUICtrlSetResizing(-1, 768 + 2)
	guictrlsetonevent(-1, "closeSqlGui")
	guisetstate(@sw_show, $SqlGui)
EndFunc   ;==>sqlkonsole
Func fillListView($array, $sort = true, $lastIsPath = false)
	;Dieser Befehl lässt die Listview schneller laden, da Änderungen nicht sofort angezeigt werden
	_GUICtrlListView_BeginUpdate($MainGui_MainListView)
	;löscht alle Items
	_GUICtrlListView_DeleteAllItems($MainGui_MainListView)
	;Löscht alle SpaltenNamen
	for $i = 0 to _GUICtrlListView_GetColumnCount($MainGui_MainListView) + 1 step 1
		_GUICtrlListView_DeleteColumn($MainGui_MainListView, 0)
	next
	;Erstellt die Spaltennamen neu
	for $i = 1 to $iClumn step 1
		_GUICtrlListView_AddColumn($MainGui_MainListView, $array[$i])
		_GUICtrlListView_SetColumnWidth($MainGui_MainListView, $i - 1, 200)
	next
	;Versteckt die erste Spalte (ID), die nur für Befehle genutzt wird, um mit dem selektierten Buch weiterzuarbeiten
	_GUICtrlListView_HideColumn($MainGui_MainListView, 0)
	;Füllt die Listview mit den einzelnen Einträgen
	for $i = $iClumn + 1 to UBound($array) - 1 step $iClumn
		$string = ""
		;Alle Daten in einen String schreiben
		for $x = 0 to $iClumn - 2 step 1
			$string &= $array[$i + $x] & "|"
		next
		$string &= $array[$i + $iClumn - 1]
		;Listview Item erstellen
		GUICtrlCreateListViewItem($string, $MainGui_MainListView)
		;Farbe wechseln, damit einzelne Spalten besser unterschieden werden können
		if mod(int($i / $iClumn), 2) = 0 then
			GUICtrlSetBkColor(-1, 0xDDDDDD)
		endif
	next
	;Jetzt das neuzeichnen der Listview wieder aktivieren
	_GUICtrlListView_EndUpdate($MainGui_MainListView)
EndFunc   ;==>fillListView
Func getDataAndFillListview($sql, $lastIsPath = false)
	$aData=MainGetData($sql)
	if $aData<>-1 then
		fillListView($aData, false, $lastIsPath)
	Else
		return -1
	endif
EndFunc   ;==>getDataAndFillListview
Func MainGetData($sql)
	$aData = ""
	$iRow = ""
	$iClumn = ""
	_SQLite_GetTable($hDatabase, $sql, $aData, $iRow, $iClumn)
	If @error then
		ConsoleWriteError("Fehler in der Sql-Abfrage:"  & $sql)
		return -1
	EndIf
	return $aData
EndFunc   ;==>MainGetData_self
Func closeSqlGui()
	GUIDelete($SqlGui)
EndFunc   ;==>closeSqlGui
Func sqlsend()
	local $exec = false
	$x = stringsplit(guictrlread($SqlGui_Edit3_1), @crlf)
	;Alle Zeilen im Edit durchgehen
	for $a = 1 to ubound($x) - 1 step +1
		;Auf Kommentar prüfen
		if stringinstr($x[$a], "#") = 1 Then
			;nichts
		else
			;Kommentar am Ende einer Zeile löschen
			if stringinstr($x[$a], "#") > 1 Then
				$strs = stringsplit($x[$a], "#")
				$x[$a] = $strs[1]
			endif
			;Select abfrage
			if stringinstr($x[$a], "select") <3 Then
				ConsoleWrite("Select"&@crlf)
				getDataAndFillListview($x[$a])
			;SQL Exec
			else
				if $x[$a] <> "" then
					ConsoleWrite("Exec"&@crlf)
					_SQLite_Exec($hDatabase, $x[$a])
					$exec = true
				endif
			endif
		endif
	next
	;Nur damit man weiß, das die Exec ausgeführt wurde, da dort ja sonst keine Anzeige steht.
	if $exec then
		msgbox(48,"Hinweis","Änderungen durchgeführt.")
	endif
	WinActivate($MainGui)
EndFunc   ;==>sqlsend

Hallo Ihr beiden.

Habe gestern den ganzen Tag versucht und bin erst vorhin wieder hier gewesen. Ich schau es mir am Wochenende an.
Erst einmal: lieben DANK !!!

Ich Danke Dir für Deine Meinung.

Ich wäre doch schon dankbar und ich glaube das es mehreren Hilft, wenn man gerade bei solchen Sachen dann Abk's verwendet die "eigentlich" KURZ UND SINNVOLL sind. Vielleicht liegt es auch daran, das ich aus der Zeit komme, wo Dateien noch 8.3 waren und man acht Stellen hatte, der Datei einen sinnvollen Namen zu geben, an den man sich auch noch ansatzweise nach zwei Jahren erinnern kann. Dasmal war doch klar das [bat2txt] bedeutete Batchdatei-zu-Textdatei. Mann muss ja nicht [ary2txt] für Array-zu-Text schreiben, aber klarere KURZE SINNVOLLE Begriffe im Text oder bei Titel wäre doch einfach hilfreicher.

Was das Nachdenken bei mir betrifft, so sieht es bei mir folgt aus. Und nun nicht lachen und stellt es Euch einfach nicht bildlich vor. Okay?

1 a) Ich habe eine Idee und überlege drei bis vier Tage ob die Idee okay ist.
1 b) Ich habe ein Problem und denke über eine Lösung nach.

2) Lösung muss her oder Idee würde ich gerne umsetzen.

3 ) Problem oder Idee zu Papier bringen.

4 ) Darüber nachdenken, wie man es umsetzen könnte. Dazu suche ich mir erst einmal Hintergrundinformationen, so gut ich kann. So wie bei meinem aktuellen Problem, wo ich mit SQLite eigentlich schon gut klar komme, aber es einfach nicht hinbekomme, eine Abfrage in ein ListView zu übertragen. Bevor ich davon hier etwas gepostet habe, waren von der Idee her schon sechs Wochen vergangen. Ich kann nun alles was ich benötige bis dato wie gesagt in der Console ausgeben und sieht auch super aus.

5 ) Ich gehe dann hin und versuche meine Gedanken im Kopf irgendwie zu Papier zu bringen und scripte dann nicht los. Wenn ich meine das die Umsetzung dann doch machbar sein sollte, fange ich an und schreibe mir erste Stickpunkte auf. Welche Variablen habe ich und benötige ich durch evtl. Berechnungen und wie muss ich das umsetzen. Und und und. Wer Herrn Prof. Dr. Oliver Vornberger Lesungen kennt (youtube) weiß wie er nach Lösungen sucht und so versuche ich es auch.

6 ) Und dann probiere ich und probiere ich. Immer wieder überlege ich, wo es in meinem Kopf falsch verstanden wird.

7 ) Und wenn ich dann nicht weiter komme, die SuFu hier und im UK Forum nicht hilft, weiche ich auch auf die spanischen und französischen AutoIt Foren und dann geht halt nichts mehr.

Moin Moin lieber UserX.

Ich habe einen Vorschlag. Ich weiß, ich sagte es bereits im Betreff.

Es gibt ja doch öfters mal Anfragen (auch von mir ), wo es doch eigentlich darum geht etwas von A nach B zu bringen. Also "TXT-2-ListView" oder "Array-2-Txt" und aktuell bei mir "DB-2-ListView".
Leider sind die Beispiele in der Hilfe ja sehroft so gehalten, das die Ausgabe in eine MsgBox ausgegeben wird. Mit vielem komme ich immer erst klar, wenn ich einmal an einem eigenen Bsp. das
Problem verstanden und umgesetzt habe. Ich glaube auch, das ich nicht die Eionzige bin. Okay, vielleicht die einzige Frau, aber unter den Männern & "Männern" gibt es öfters mal User, die es dann
kompliziert umschreiben.

Wie wäre es mit einer Kategorie "XXX-2-YYY", oder wie sie dann immer heißen wird.

Und wenn Du, wie o. g. die Ordner/Dateien in das "Nirgends" von Windows, dann erstelle da doch noch einen versteckten Ordner.

@Kanashius, mein Problem ist, das ich wohl falsch denke und es einfach nicht hin bekomme.

Eigentlich möchte ich damit meine ganz privaten Büchern verwalten. Habe jetzt ca. 1500 Bücher, wobei ich die z. Zt. in einer normalen Textdatei verwalte.
Aber durch dieses Projekt habe ich gedacht, komme ich besser mit SQLite danach klar, aber an der Ausgabe in die ListView verzweifel ich. Und dabei hatte
ich schon so viel, das ich dann mit SQLite umsetzen wollte, aber Frau kann ja auch nicht alles verstehen. Mal sehen ob mir dann mal ein Script in die Hände
fällt wo ich das dann verstehe und dann umsetzen kann. Witzig ist ja, das ich es in die Console alles bereits ausgegeben bekommen habe und es nur da der
ListView scheitert.
Habe mir viele Beiträge über SQL & SQLite angeschaut, aber für o. g. Problem hat es nicht geholfen. Dafür für das Verständnis wie man DB's aufbaut, befüllt,
filtert, usw.. Total interessant und deshalb bin ich ja so da hinter dran, das zu verstehen.

Dennoch einmal meinen Dank an Euch beide.

Hallo Ihr beiden.

Ich habe meinen freien Nachmittag und den ABend dazu genutzt Eure Tips / Hilfen umzusetzen, aber ich habe es so nicht hinbekommen.
Habe nun die Idee die Datensätze in ein Array zu "packen" und es von da aus im ListView zu zeigen.

Das Englische Forum habe ich heute und auch schon die Tage zuvor durchgeschaut. Da schaue ich eh öfters rein, denn da bekommt man ja auch gute Hilfe.

Also werde ich mir nun Gedanken machen, wie ich die Idee nun umsetze.

Moin-Moin, Drayven.

Erst einmal HERZLICH WILLKOMMEN im Forum.

Zum Einstieg nehm dir die Hilfe und lese in Ihr. Aber Vorsicht, dadurch komme ich zumindest immer wieder auf neue Ideen, was ich umsetzen könnte.

Hilfe bekommst Du dann auch hier und das, wenn Du höflich bist, auch aus vielen Richtungen.

Dir alles Gute und das es Dir besser geht.