Beiträge von horphi

Hallo,

ich kann mir leider nicht erklären, warum ich die #include <SQLite.dll.au3> nicht mehr öffnen kann.

SIe liegt ganz normal im IncludeOrdner.

Hat das PRoblem sonst noch jemand?
Wofür ist die DLL eigentlich? --> Wenn ich den Includebefehl auskommentiere, dann läuft das Skript trotzdem...
Adminrechte?

; Inline ..\..\bin\SQLite\sqlite3.dll, Creation Time: 2015/09/10 11:35:01
#include-once
Func __SQLite_Inline_Modified()
	Return "20150910113501" ; 2015/09/10 11:35:01
EndFunc   ;==>__SQLite_Inline_Modified
Func __SQLite_Inline_Version()
	Return "300801101" ; 3.8.11.1
EndFunc   ;==>__SQLite_Inline_Version

VG horphi

Hallo Oscar,

könnte man deine Funktion nicht in die Standard-Bibliothek der Arrays mitaufnehmen?

Ich finde die genial.

VG
horphi

Danke für die Hinweise.

Hab es jetzt mit einer Array Schleife gelöst.

Ich wiederhole die Übergabe und verändere die zuzufügende Reihe.

VG
horphi

Ich verstehe aus dem Dictionary.Object.Add --> das ich nur ein Item hinzufügen kann richtig?

RICHTIG object.Add (key, item)

FALSCH object.Add (key, item1,Item2)

VG

Hallo Oscar,

die Funktionsweise des Dictionary.Object muss ich erst mal verstehen.

Bin ja absoluter Anfänger....

https://msdn.microsoft.com/en-us/library/…4(v=vs.84).aspx

VG
horphi

...wie macht ihr das....ich sitze seit 2 Tagen davor und kriege es nicht hin.

Dann poste ich hier einmal meinen Ansatz und ihr haut 10 min später die Lösung raus...
Oscars Lösung ist PERFEKT!

@ Water: auf dein Frage zurückzukommen, ja es gibt die Früchte mehrmals in der 2. Tabelle...Ich habe 2x Äpfel mit unterschiedlichen Halbarkeitsdaten...

Global $aarray1 = [["Banane", "16,95"], ["Apfel", "20,5"], ["Birne", "20,5"]]
Global $aarray2 = [["Banane", "16.11", '2 / 3'], ["Apfel", "20.11", '2 / 5'], ["Apfel", "19.11", '2 / 6'],['Kirsche', '23.11', '4 / 9']]

VIELEN DANK!!!!!

Hallo,

ich bekomme es leider nicht hin.
Ich versuche 2 Arrays zu vergleichen und bei Übereinstimmung die Werte beider Arrays in einem neuen Array zusammenzufügen.

Hier ist mein Ansatz:

#include <Array.au3>
#include <AutoItConstants.au3>
#include <MsgBoxConstants.au3>




Global $aarray1 = [["Banane", "16,95"], ["Apfel", "20,5"], ["Birne", "20,5"]]
Global $aarray2 = [["Banane", "16.11", '2 / 3'], ["Apfel", "20.11", '2 / 5'], ['Kirsche', '23.11', '4 / 9']]




$aresultcomp = _ArrayCompare($aarray1, $aarray2)
_ArrayDisplay($aresultcomp)


Func _ArrayCompare($aarray1, $aarray2)


	Local $aArray3[][] = [[0, 0]], $iNeu, $i


	For $i = 0 To UBound($aarray1) - 1
		If _callcomparison($aarray2, $aarray1[$i][0]) Then
			MsgBox(0, '', $aarray1[$i][0])
			$iNeu = UBound($aArray3) + $i
			ReDim $aarray1[$iNeu][0]
			$avArray3 = $aarray1
		EndIf


	Next
	_ArrayDisplay($avArray3)


EndFunc   ;==>_ArrayCompare


Func _callcomparison($aAr1, $aAr2)
	Local $i
	For $i = 0 To UBound($aAr1) - 1
		If $aAr1[$i][0] = $aAr2 Then Return True
;~ 		MsgBox(0, '', 'RICHTIG ' & $aAr1[$i][0] & " test " & $aAr2)
;~ 	Else
;~ 		If $aAr1[$i][0] <> $aAr2 Then MsgBox(0, '', 'Falsch ' & $aAr1[$i][0] & " test " & $aAr2)
;~ 	EndIf
	Next
;~ 	Return True


EndFunc   ;==>_callcomparison

Könnt Ihr mir helfen?

VG

horphi

Man man man....das ist ja ein neuer AntwortRekord ...

Vielen Dank, funktioniert PERFEKT!

#include <Array.au3>


Local $aArray_Base [9]
For $i = 0 To 8
        $aArray_Base[$i] = $i
Next
_ArrayDisplay($aArray_Base, "erster 1D Array")


Local $aArray_Base2[9]
For $i = 0 To 8
            $aArray_Base2[$i] = $i
Next
_ArrayDisplay($aArray_Base2, "zweiter 1D Array")


$aNew = _Array_Add($aArray_Base,$aArray_Base2)


    Func _Array_Add($a1, $a2)
    	If Not IsArray($a1) Or Not IsArray($a2) Then Return -1
    	If UBound($a1, 2) > 1 Or UBound($a2, 2) > 1 Then Return -1
    	Local $u_a1 = UBound($a1)
    	Local $u_a2 = UBound($a2)
    	Local $aNew[($u_a1 > $u_a2 ? $u_a1 : $u_a2)][2]
    	For $i = 0 To ($u_a1 > $u_a2 ? $u_a1 : $u_a2)
    		If $u_a1 > $i Then $aNew[$i][0] = $a1[$i]
    		If $u_a2 > $i Then $aNew[$i][1] = $a2[$i]
    	Next
    	Return $aNew
    EndFunc


_ArrayDisplay($aNew)

VG

horphi

Hallo,
ist es möglich, 2 1D Arrays zusammenzufügen?

Also
Row1 | Row2
1.[Array1] | [Array2]
2.[Array1] | [Array2]
3.[Array1] | [Array2]
4.[Array1] | [Array2]
5.[Array1] | [Array2]
6.[Array1] | [Array2]

#include <Array.au3>


Local $aArray_Base [8]
For $i = 0 To 7
        $aArray_Base[$i] = $i
Next
_ArrayDisplay($aArray_Base, "erster 1D Array")


Local $aArray_Base2[9]
For $i = 0 To 8
            $aArray_Base2[$i] = $i
Next
_ArrayDisplay($aArray_Base2, "zweiter 1D Array")




$arrayconc = _ArrayConcatenate($aArray_Base, $aArray_Base2)
_ArrayDisplay($arrayconc)

Danke und Gruß,

horphi

Hallo AspirinJunkie,

danke für dein Hilfe.

Ich möchte:

1. Die Städte aus dem Link lesen
2. in einer GUI anzeigen
3. als CSV exportieren
4. in eine SQ-Lite DB schreiben, um beim nächsten mal zu gucken, ob eine Stadt dazugekommen ist

Ich stehe damit noch ganz am Anfang und arbeite mich durch.

Ich versuche mich "Kapitelweise" dadurch zuarbeiten und die einzelnen UDF´s dabei zu verstehen und einzusetzen.

VG

horphi

Hallo AspirinJunkie,

ich habe noch kein gutes Script.
Bisher probiere ich die Daten zu extrahieren, um href und title in einen 2D Array zu übergeben.

Func _ReadHTML()
Local $oIE = _IECreate("http://www.fliegmituns.de/geschenke-shop/tragschrauber-gyrocopter-rundfluege",0,0,1,1)


Global $sText = _IEBodyReadHTML ($oIE)




Global $aResult = StringRegExp($sText,'(href=".*?")',3)
Global $aResult2 = StringRegExp($sText,'(<a title=".*?")',3)


$sResult = _ArrayToString($aResult,@TAB)
MsgBox(0, '', $sResult)
$sResult2 = _ArrayToString($aResult2,@TAB)
MsgBox(0, '',$sResult2 )


	Local $aArray[50][2]
    Local $iRows = UBound($aArray, $UBOUND_ROWS) ; Total number of rows. In this example it will be 10.
    Local $iCols = UBound($aArray, $UBOUND_COLUMNS) ; Total number of columns. In this example it will be 20.


   For $i = 0 To $iRows - 1
        For $j = 0 To $iCols - 1
            $aArray[$i][$j] = $sResult & $sResult2
        Next
    Next
    _ArrayDisplay($aArray)


EndFunc

VG

horphi

habs gefunden

2d array mit stringregexp

Vg

Horphi

Hallo Bugfix, hab verstanden.

Nun ja ich möchte href:"a href:"b und href:"c jeweils finden und nebeneinander in einem Array schreiben.

A|B|C

geht das?

Vg
Horphi

Nun ja, das erklärt sich wahrscheinlich von selbst. Da ich mir aber nicht sicher war, da ich RegEx jetzt erst einigermaßen verstanden habe, wollte ich noch mal nachfragen. Mein "googl´n" hat dazu auch nichts ergeben...

Jeder Ausdruck wird doch durch Klammern oder Zeilenumbrüche getrennt, aber nicht in Spalten zerlegt. -> Also nur eine Spalte.

Somit kann ich das wahrscheinlich nur mit einer nachgelagerten, verschachtelten StrintoArray/StringExplode Funktion bewerkstelligen, oder??

VG

horphi

Hallo Oscar,

das ist doch eine allgemein gehaltene Frage.

Kann man die so nicht beantworten?

Ok dann Frag ich anders:
1. Kann StringRegExp im Flag (3 -$STR_REGEXPARRAYGLOBALMATCH (3)) den Array in mehreren Spalten ausgeben? Wenn ja -> Gibt es einen allgemein gültigen Ausdruck, der die in Klammern gesetzten Werte in einem 2D Array listet?

2. Hab ich mir schon selbst beantwortet --> (^\s)

DAnke und Gruß,

horphi

Hallo zusammen,

2 Fragen.

1.Kann ich mit StringRegExp den Array gleich in mehreren Spalten ausgeben?

2. WIe kann ich leere Zeilen von der StringRegExp Suche ausschließen?

Danke und Gruß,

horphi

Danke Kanashius,

das probiere ich morgen auf der Arbeit gleich mal aus....

Habs jetzt kurz angetestet...er durch läuft auch jede Zeile und das auch noch super schnell.

VG

horphi

Hallo AspirinJunkie,

danke für deine Rückmeldung.

ENtschuldige, wenn ich mich nicht richtig ausgedrückt habe.

1.Ich möchte wie im 1. Post beschrieben TXT Files durchsuchen und mir die Zeilennummer (nicht den Inhalt) des Ergebnis wiedergeben lassen.
2. will ich dann von da weitersuchen bis zur nächsten Leerzeile. (also StringLen = 0)
3. Der gefundene Bereich von Ergebnis bis nächster Leerzeile soll in eine GUI geschrieben werden, damit ich es weiterverarbeiten kann.

Das habe ich hiermit auch hinbekommen, nur durchsucht die Schleife die Datei immer wieder von vorne, weil ich die Datei bei Jeder Schleife erneut einlesen....das ist bei 1000 Zeilen sehr viel...

#include <Array.au3>
#include <File.au3>
#include <MsgBoxConstants.au3>


$sFile = FileOpenDialog("TXT öffnen",@ScriptDir & "\", "All (*.txt*)")




$FileData = FileOpen($sFile)
$FileDataLine = FileRead($FileData)
$sStringset = StringInStr($FileDataLine, "zwei", 0)
$sFound = StringLeft($FileDataLine, $sStringset)
$sOut = StringReplace($sFound, @LF, "")


$extendAnfang = @extended + 1
$extend = @extended + 1


MsgBox(0, "Ausgabe", "Start in Zeile: " & $sStringset)




Local $i = 0
While $i <= 2


	$extend = $extend + 1
	$sLineEnd = FileReadLine($FileData, $extend)
	$sLineEndLen = StringLen($sLineEnd)


	If $sLineEndLen = 0 Then ;if Schleife sucht Zeile ohne Text
		$i = $i + 1
		$extend = $extend + 1
		$extendDelta = $extend - $extendAnfang


		MsgBox(0, '', "Zeile gefunden:" & $extend & " Differenz: " & $extendDelta)


		ExitLoop
	EndIf
WEnd


FileClose($FileData)

VG
horphi

Hallo Oscar,

ich rufe die Datei über FileOpenDialog auf und übergebe sie in FileRead.

Kann ich aus FileRead in FileReadLine übergeben und mit einer For/Next Schleife die Daten aus dem @extended Container (also die Zeilennummer) nutzen?

#include <Array.au3>
#include <Constants.au3>
#include <findinfile.au3>
#include <File.au3>
#include <Array.au3>
#include <MsgBoxConstants.au3>


_SearchLoop()


Func _SearchLoop()

$sFile = FileOpenDialog("TXT öffnen",@ScriptDir & "\", "All (*.txt*)")
$sSearch = InputBox("Suchstring ?", "Geben Sie den zu suchenden Text ein:")


;~ 	Global $sfile = @ScriptDir & "\00_test.txt",
	Global $search = GUICtrlRead($sSearch)
;~ 	GUICtrlSetData($Edit1, "")


	; find the line that has the search string


;~ 	$FileData = FileOpen($sFile)
	$FileData = FileRead($sFile)
	$sStringset = StringInStr($FileData, $search, 0)
	$sFound = StringLeft($FileData, $sStringset)
	$sOut = StringReplace($sFound, @LF, "")


	$extendAnfang = @extended + 1
	$extend = @extended + 1




	Local $i = 0
	While $i <= 9


		$extend = $extend + 1
		$sLineEnd = FileReadLine($sFile, $extend)
		$sLineEndLen = StringLen($sLineEnd)


		If $sLineEndLen = 0 Then ;if Schleife sucht Zeile ohne Text
			$i = $i + 1
			$extend = $extend + 1
			$extendDelta = $extend - $extendAnfang


			ExitLoop
		EndIf
	WEnd


	FileClose($sFile)


	While 1
		If @error = -1 Then ExitLoop


		$FileDataSearch = FileRead($sFile)
			For $i = $extendAnfang +1 To $extend -2
				ConsoleWrite($i & ':' & FileReadLine($FileDataSearch, $i) & @CRLF)
				GUICtrlSetData($Edit1, GUICtrlRead($Edit1) & FileReadLine($FileDataSearch, $i) & @CRLF);& $i & ':'
			Next
			ExitLoop


	WEnd
	WEnd
	FileClose($sFile)
EndFunc   ;==>SearchLoop

VG

horphi

Es kann so einfach sein....

Danke funktioniert jetzt ...