Hi,
konstruktiv wäre, wenn du zunächst selbst etwas probierst und dann deinen Scriptversuch hier reinstellst, wenn du nicht weiterkommst.
Denn so lernst du nix, wenn du dir alles schreiben lässt und blind verwendest.
P.S.: Profi bin ich auch nicht, allerdings versuch ich erstmal selbst so weit ich komme und stelle dann evtl meine Fragen - mit meinem bisherigen Versuch im Anhang.
Gruß
Hi,
nimm mir das jetz bitte nicht übel, aber versuchst du auch selbst deine Programme zu erstellen oder erwartest du, dass dir die hier jemand komplett schreibt?
Gruß
x0r
Hi BugFix,
danke für den Tipp, ist angefügt 
Gruß
x0r
Hi Marsi,
sieht echt cool aus das Teil, allerdings hab ich schon die neue Version gebaut, mit sämtlichen EMEA-Ländern drin
...und diesmal komplett ohne Ortsteile, also wirklich nur die Städte.
Denk mal, dass es so passen müsste, trotzdem thx! 
Gruß
x0r
thx autoBert!
Ich hab schon gesucht wie ein Blöder, um festzustellen, dass ich letztendlich doch (noch) zu blöd bin
"AdlibRegister" hab ich noch nie benutzt 
So einfach ist das leider nicht, mit Daten nachträglich hinzufügen oder aktualisieren, da müsste ich die komplette Datenbank nochmal neu aufbauen und könnte somit direkt die neue nehmen (wie gesagt, ich hatte die Spalte einfach nur raus, der übersichtlichkeit halber ;)).
Danke trotzdem!
Hi,
Fehler?
Theoretisch ja, praktisch nein, denn in Verbindung mit der Plz ist der Stadtteil auch kein Ortsname irgendwo in Deutschland.
Du darfst aber selbstverständlich deine eigene - vollständige - Datenbank hernehmen
Gruß
x0r
Hi,
ich mein schon das Richtige denke ich
hier mal ein Beispiel:
;hier gui erstellen
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
dim $timer = TimerInit()
[/autoit] [autoit][/autoit] [autoit];Lebenserhaltung für dein GUI
[/autoit] [autoit][/autoit] [autoit]while 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
$sekunden = round(TimerDiff($timer)/1000,0)
if $sekunden >= 20 Then
;hier das was du updaten willst, z.b.:
GUICtrlSetData($label02,"neue überschrift")
$timer = TimerInit()
EndIf
WEnd
[/autoit]Der perfekte 20 Sekunden Timer und dein GUI funktioniert auch noch!
Gruß
x0r
Hi Alina,
die genannten Verbesserungsvorschläge hab ich mir auch schon überlegt, wird vermutlich in der nächsten "ganz Europa"-Version kommen
Aber wieso sollte das ein Fehler sein?
Wenn du "Tarup" und "5" eingibst, bringt er dir alle Ortschaften (inklusive Ortsteile, da andere Plz) im UMKREIS von 5km um Tarup, somit ist das doch in Ordnung?
Danke & Gruß
x0r
Hi Alina,
danke für den Tip mit zip statt rar, habs aktualisiert
Helfen brauchst du hier nichts, das Teil ist fertig (bis auf vielleicht kleinere Bugs).
Bastel grade an einer Version für komplett Europa - das kann ich dann allerdings nicht hochladen, weil die Datenbank viel zu groß wird
Danke dir trotzdem!
Gruß
x0r
funktioniert doch...
$timer = TimerInit()
[/autoit] [autoit][/autoit] [autoit]while 1
$sekunden = round(TimerDiff($timer)/1000,0)
if $sekunden = 3 Then
ConsoleWrite("3 Sekunden um" & @CRLF)
$timer = TimerInit()
EndIf
WEnd
einbauen kannst es aber selber?
schau dir mal "TimerInit" und "TimerDiff" an
Hi,
habe mir eine Umkreissuche gebastelt, da alle im Web angebotenen maximal 500 Einträge ausgeben und man nur bis zu 150km suchen kann.
Anfangs wird eine *.txt eingelesen, mit den Daten (Plz, Ort, Koordinaten) und dann einzeln ausgerechnet und am Ende angezeigt.
Eine Suche mit 1000km (alles ;)) dauert keine 10 Sekunden, schätze das ist verkraftbar!
€dit
[/autoit]Die "Datenbank" einfach ins selbe Verzeichnis werfen
P.S.: Die Daten sind etwas unglücklich exportiert geworden. Das heisst, dass 'lat' und 'lng' vertauscht sind, ist im Script aber berücksichtigt!
PP.S.: Ich weiss, SQL wäre sehr viel schneller, hatte aber keine Lust wieder alles umzubasteln 
Fixes:
- Bei keiner Eingabe erfolgt eine Fehlermeldung
- Suche kann jetzt nur 1x angeklickt werden, bis die Suche abgeschlossen ist.
- Bei mehrfacher Suche wird das Ausgabefeld geleert.
Edit: Quelle -> http://fa-technik.adfc.de/code/opengeodb/
Gruß
x0r
genauso hatte ich mal 2 Funktionen gebaut, die eine wandelt angegebene Spalten-Buchstaben in die entsprechende Zahl um, um damit dann zu arbeiten:
Func _ExcelColNum($num)
if isint($num) Then
return $num
Else
$cnt = StringLen($num)
$plus = 0
$num = StringUpper($num)
if $cnt = 2 Then $plus = (asc(stringleft($num,1))-64) * 26
$str = asc(StringRight($num,1)) -64
$num = $str + $plus
EndIf
return $num
EndFunc
und mit der anderen kann man Spalten verschieben, also ausschneiden und einfügen in einem Schritt, das hatte ich damals glaub ich auch nicht entdeckt:
Func _ExcelColMove($oExcel, $from, $to)
$ary = _ExcelReadSheetToArray($ofile,1,$from,0,1)
_ExcelColumnDelete($ofile,$from)
_ExcelColumnInsert($ofile,$to)
for $i = 1 to ubound($ary)-1
_ExcelWriteCell($ofile,$ary[$i][1],$i,$to)
Next
$ary = ""
EndFunc
Lässt sich auch hervorragend kombinieren:
_ExcelColMove($oExcel,_ExcelColNum("B"),_ExcelColNum("AA"))
[/autoit]Gruß
x0r
ohne groß nachzudenken, ist aber bei weitem nicht die beste lösung
$var = "Username=User1"
[/autoit][autoit][/autoit][autoit]$var = StringSplit($var,"=")
[/autoit][autoit][/autoit][autoit]MsgBox(0,"",$var[2])
[/autoit]Hi,
habe mir eine Funktion geschrieben, mit der man Text in Excel exportieren kann.
Ja das gibts schon, aber ich habe nichts entdeckt, womit bei "Tab" in die nächste Zelle geschrieben wird, quasi ein Zellen-"Delimiter".
Ist eigentlich selbsterklärend
func text_to_excel()
;Quelle
local $var = FileRead("test.txt")
local $ary
;Ziel
$ofile = _ExcelBookOpen(@ScriptDir & "\testexcel.xls",0)
$ary = StringSplit($var,@LF)
[/autoit] [autoit][/autoit] [autoit]for $i = 1 to $ary[0]
if StringInStr($ary[$i],chr(9)) then
$str = StringSplit($ary[$i],chr(9))
for $z = 1 to $str[0]
_ExcelWriteCell($ofile,$str[$z],$i,$z)
Next
Else
_ExcelWriteCell($ofile,$ary[$i],$i)
EndIf
Next
_ExcelBookSave($ofile)
_ExcelBookClose($ofile)
EndFunc
Grüße
x0r
Suchst du bezüglich VBA sowas in der Art?:
Hi Ilse,
in der Hilfe zu den UDF's bei der Funktion "_IsPressed" stehen einige, ist es das, was du suchst?
Edit: $var war schneller, hmpf!
Gruß
x0r
