Beiträge von Volumeman

Moin moin Autoit-Gemeinde!

Jeder kennt ja das Spiel (Stadt,Land,Fluss)

Der einzige Nachteil immer muss jemand die "Buchstaben" heraufzählen und dann feststellen, dass der Buchstabe schon vorkam und muss wieder von vorne Anfangen.

Nun gibt es ja in Autoit die Funktion Random, jedoch ist diese ja nur für Zahlen... weiß jemand ne Idee, wie man sowas auch für Buchstaben erstellen kann??? (oder gibts so eine funktion schon und ich weiß sie nur nicht???)

Für Ideen und/oder Lösungsvorschläge würde ich mich sehr freuen!

Volumeman

DANKE GOTT!!! (Xeno)

Wie immer eine Glanzleistung von dir!

DANKE DANKE DANKE

hmmm tut es aber irgendwie nicht wirklich...

[autoit]

$retval = _ReplaceStringInFile($file_2,@CRLF,"")

[/autoit]

so ist aber verkehrt ne? oder lautet der Befehl anders?

Hi Xeno!

auf dich ist wenigstens verlass... wie du im Anhang sehen kannst, steht in der ersten Zeil nichts drin...
die Datei an sich kommt ja aus Powershell

im Grundgenommen würde oben drüber, über der Leerzeile noch Spalteüberschriften stehen, die ich aber ausblende...
also müsste es eigentlich eine Leerzeile sein...

hast du nen Rat parat?

Guten Morgen liebe Autoit-Gemeinde!

Ich habe eine Frage, die mir schon seit 2 Tagen Kopfzerbrechen bereitet...

Unzwar versuche ich vom Exchange per Powershell Skript die aktuellen Gesamtpostfachverbräuche herauszulesen.
Das klappt auch eigentlich soweit prima. es kommt zumindest was heraus... (siehe Anhang1 PG.txt)
Dann habe ich ein Autoit Script das mir diese Datei wiederum in eine andere Datei konvertiert und es kommt folgendes heraus (siehe Anhang2 PG_konv.txt) Diese ganze prozedur mache ich auch nur, damit ich die Werte per Array in Variablen schreibe um diese dann mit einem FileWrite als INSERT für mysql bereitzustellen.

[autoit]

#include <array.au3>
#include <date.au3>
#include <String.au3>
#include <File.au3>
Dim $hash

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

$file = FileOpen("C:\PG.txt", 0)
$file_2 = FileOpen("C:\PG_konv.txt", 2)

[/autoit][autoit][/autoit][autoit]

while 1
$line = FileReadLine($file)
If @error = -1 Then ExitLoop
$text = StringStripWS($line, 4)
$text = StringReplace($text, " ", "^")
$text = StringReplace($text, "B^", "^")
FileWriteLine($file_2, $text)
WEnd
FileClose($file_2)

FileClose($file)

[/autoit]

um das ganze etwas zu verkürzen im ersten Scriptschnipsel das konvertieren
und im zweiten Scriptschnipsel wie das mit dem INSERT aussieht

[autoit]

While 1
$line = FileReadLine($openEingabe)
If @error = -1 Then ExitLoop

[/autoit][autoit][/autoit][autoit]

$hash = StringSplit($line, '^')
$diskspaceused = $hash[1]
$dslimit = $hash[2]
FileWrite($openAusgabe, "INSERT INTO quotas (datum, zeit, domain, user, computer, q_volume, disk_space_used, disk_space_limit, status, warning_limit) ")
Filewrite($openAusgabe, "VALUES ('" & $datum & "',")
Filewrite($openAusgabe, "'" & $zeit & "',")
Filewrite($openAusgabe, "'" & $domain & "',")
Filewrite($openAusgabe, "'" & $user & "',")
Filewrite($openAusgabe, "'" & $computer & "',")
Filewrite($openAusgabe, "'" & $volume & "',")
Filewrite($openAusgabe, $diskspaceused & ",")
Filewrite($openAusgabe, $dslimit & ",")
Filewrite($openAusgabe, $status & ",")
Filewrite($openAusgabe, $warninglimit & ");" & @CRLF)
Wend

[/autoit]

Natürlich kommen dazwischen noch weitere Werte aber die sind ja nicht wichtig, da diese Code-Schnipsel aus einem Script herüren wo es funktioniert... aber da werden auch keine Leerzeilen am Anfang geschrieben...

Wie man sieht ist ja in BEIDEN Textdateien direkt in der erste Zeile eine (für mich siehts so aus) Leerzeile.
Jetzt soll die aber garnicht erst da sein, mit anderen Worten (ja endlich kommt meine Frage) WIE bekomme ich die erste Zeile da weg?

Grüße Volumeman

Hallo Leute!

Ich habe wiedereinmal ein Problem. unzwar da wo jetzt $anfang7 = "," steht kann das Script den String anscheinend nicht finden.
Um die Suche weiterhin einzugrenzen, wollte ich einfach den $anfang7 string abändern, da er so im HTML Text auch vorkommt (s. hier)
<param name="movie" value="Hier?bildl=knight2a&bildr=knight3a&ritterl=Test, 34&ritterr=xxxxxx,

[autoit]

_IENavigate($oIE, " http://www.HIER.de")
_IELoadWait($oIE)
$sText7 = _IEBodyReadHTML($oIE)
$anfang7 = ", "
$ende7 = "&ritterr=xxxxxx,"
$gesucht7 = _StringBetween($sText7, $anfang7, $ende7)
$gesucht7 = $gesucht7[0]

[/autoit]

Im Grunde genommen kann er wo jetzt rot markiert ist, ritterl=Test über eine Variable zugefügt bekommen, das die Variable gleich dem Namen ist, der dort steht.
Das würde ja dann so aussehen: ritterl=$eintragen wobei ja dann $eintragen = Test wäre.
Jedoch muss das ja in den String irgendwie eingefügt werden, und da weiß ich nicht wie das geht, deswegen frage ich nach. Mit anderen Worten:
$anfang7 = "ritterl=$eintragen, "

Herauskommen sollte dann eine 34...

kann jemand helfen???

OMG, darüber habe ich garnicht nachgedacht, obwohl es ja nichts anderes hätte sein können..

DANKE!!!

Jetzt habe ich wohl noch eine Frage, ich mach ja den

[autoit]

$Metall = _StringAddComma($Metall)
$Metall = StringReplace(($Metall), "," , ".")

[/autoit]

Natürlich ersetzt das Script auch das >>>,<<< durch einen >>>.<<<, aber wie schaffe ich es, dass er mir auch das tausender trennzeichen bastelt z.B. wenn die Zahl größer als 1 Million wird?

Niemand eine Lösung für dieses "Problem"?

Volumeman

Hallo Leute!

Ich habe mir für ein Onlinegame folgendes Progrämmchen gebastelt, jedoch hakt es beim GuiCtrlSetData ziemlich am Ende der Scripts! In der davor liegenden MsgBox wird der Wert korrekt angezeigt, jedoch dann im Feld selber steht nur die erste Zahl, testet mal dann wisst ihr was ich meine!

Kann jemand dazu etwas sagen, bzw. gibts dafür eine Erklärung und Lösung?

Danke im voraus!!!

[autoit]

#include <GUIConstants.au3>
#include <String.au3>
#include <misc.au3>

[/autoit][autoit][/autoit][autoit]

HotKeySet("{F1}", "_beenden")

[/autoit][autoit][/autoit][autoit]

;GUI anlegen
$GUI = GUICreate("Ogame Berechnung", 500, 500, 193, 125)
GUICtrlCreateLabel("Stunden", 125, 20)
GUICtrlCreateLabel("Tage", 225, 20)
GUICtrlCreateLabel("Wochen", 325, 20)

[/autoit][autoit][/autoit][autoit]

;Eingabe wieviel Stunden, Tage, Wochen
$Stunde = GUICtrlCreateInput("", 125, 50, 25, 20)
$Tag = GUICtrlCreateInput("", 225, 50, 25, 20)
$Woche = GUICtrlCreateInput("", 325, 50, 25, 20)

[/autoit][autoit][/autoit][autoit]

GUICtrlCreateLabel("Metall:", 25, 175)
GUICtrlCreateLabel("Kristall:", 25, 200)
GUICtrlCreateLabel("Deuterium:", 25, 225)

[/autoit][autoit][/autoit][autoit]

$MetallproStunde = GUICtrlCreateLabel("", 125, 175)
$KristallproStunde = GUICtrlCreateLabel("", 125, 200)
$DeuteriumproStunde = GUICtrlCreateLabel("", 125, 225)

[/autoit][autoit][/autoit][autoit]

$MetallproTag = GUICtrlCreateLabel("", 225, 175)
$KristallproTag = GUICtrlCreateLabel("", 225, 200)
$DeuteriumproTag = GUICtrlCreateLabel("", 225, 225)

[/autoit][autoit][/autoit][autoit]

$MetallproWoche = GUICtrlCreateLabel("", 325, 175)
$KristallproWoche = GUICtrlCreateLabel("", 325, 200)
$DeuteriumproWoche = GUICtrlCreateLabel("", 325, 225)

[/autoit][autoit][/autoit][autoit]

$Rechne = GUICtrlCreateButton("Berechnen", 175, 95, 145, 20)
GUISetState()

[/autoit][autoit][/autoit][autoit]

Dim $Metall1 = 17870, $Metall2 = 5392, $Metall3 = 12133, $Metall4 = 13820, $Metall5 = 15724, $Metall6 = 961, $Metall7 = 10639, $Metall8 = 3506, $Metall9 = 15724
Dim $Kristall1 = 8085, $Kristall2 = 2011, $Kristall3 = 6207, $Kristall4 = 6207, $Kristall5 = 6207, $Kristall6 = 763, $Kristall7 = 4128, $Kristall8 = 1728, $Kristall9 = 7089
Dim $Deuterium1 = 3826, $Deuterium2 = 759, $Deuterium3 = 2185, $Deuterium4 = 2977, $Deuterium5 = 3643, $Deuterium6 = 438, $Deuterium7 = 1526, $Deuterium8 = 838, $Deuterium9 = 2082

[/autoit][autoit][/autoit][autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
CASE $Rechne
$Metall = $Metall1 + $Metall2 + $Metall3 + $Metall4 + $Metall5 + $Metall6 + $Metall7 + $Metall8 + $Metall9
$Kristall = $Kristall1 + $Kristall2 + $Kristall3 + $Kristall4 + $Kristall5 + $Kristall6 + $Kristall7 + $Kristall8 + $Kristall9
$Deuterium = $Deuterium1 + $Deuterium2 + $Deuterium3 + $Deuterium4 + $Deuterium5 + $Deuterium6 + $Deuterium7 + $Deuterium8 + $Deuterium9

[/autoit][autoit][/autoit][autoit]

$Metall = _StringAddComma($Metall)
$Metall = StringReplace(($Metall), "," , ".")

$Kristall = _StringAddComma($Kristall)
$Kristall = StringReplace(($Kristall), "," , ".")

$Deuterium = _StringAddComma($Deuterium)
$Deuterium = StringReplace(($Deuterium), "," , ".")

$Ende1 = GuiCtrlREad($Stunde)

[/autoit][autoit][/autoit][autoit]

$Ende1ges = ($Ende1 * $Metall)
msgBox(0,"",$Ende1ges)
GUICtrlSetData($MetallproStunde, $Ende1ges, "")

[/autoit][autoit][/autoit][autoit]

EndSwitch
WEnd

[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

Func _beenden()
Winclose("","")
Exit
EndFunc

[/autoit]

hmmm bin ja voll heavy, keine Firewall (auch nicht WindowsFirewall. Auf der anderen Seite, das manuelle versenden per Outlook funzt ja auch), Virenscanner ist auch keiner drauf!

Noch weitere Ideen?

Gruß Volumeman

Grüß dich Xeno!

Ich habe mich einfach frecherweise den Code hier "geklaut", habe dann

$s_SmtpServer = "mail.gmx.net"
$s_FromName = "+++"
$s_FromAddress = "+++"
$s_ToAddress = "+++"
$s_Subject = "My Test UDF"
$s_UName = "+++"
$s_PWD = "+++"

geändert in meine Zugangsdaten, aber er steigt mit einem Errorcode 51 aus!

Woran kanns liegen? wie gesagt, Code ist quasi so, wie hier nur die Benutzerdaten haben sich halt geändert

Moin!

Mir will doch jetzt keiner erzählen, dass dieses Script nie weiter bearbeitet wurde oder?

Keiner irgendwelche Ideen oder anregungen? Ich hänge jedenfalls, da die Auswahl nicht klappt. Es kommt ein Fehlermeldung mit "Crossinside" oder so...

BMWB

Hiiiiiilfeeeeee!!!!!!!!!!!

Wie zum Geier geh ich mit Autoit an SQL Lite bzw. MySQL ran???
Leute ich habe damit nu echt noch garkeine Ahnung, weiß überhaupt wie ich da an die Sache herangehen soll... *gg*
ABER die IDEE hatte ich
*lol*

Der Barcodeleser ist angeschlossen an die PS2 schnittstelle. Da ist dann so ein "Adapterstück" (nenne ich das mal *gg*) Das heißt quais, Barcodeleser an die PS2 und die Tastatur an den Barcodeleser wenn man so will...
so würde er dann die Daten bekommen...

Also ihr seit der Meinung das funzt... das sind schonmal super Nachrichten, jetzt heißt es nur noch... WIE anfangen

Moin Liebe AutoIt´ler!

Ich wollte euch mal etwas fragen.
Bin ja ein schlauer Fuchs und hatte mir so gedacht in Autoit ein Art Bestandsverwaltung zu basteln. Hintergrund ist, dass ich in der EDV tätig bin und da natürlich auch für den Nachschub von Druckerpatronen, Tonern etc zuständig. Hatte mir dann so gedacht, warum nicht mit Autoit eine Bestandsverwaltung machen die:

1) Artikel anlegen kann (Hatte da auch an einen Barcodeleser gedacht)
2) Artikelbestand zu / abbuchen kann (auch über Barcodeleser) ;Click auf Button Zubuchen bzw. abbuchen, scannen und Bestand wird zu oder abgebucht)
3) Aktuellen Ist / Soll bestand anzeigt.

Die Frage dazu ist eigentlich, GEHT DAS ÜBERHAUPT mit Autoit? Gerade im Hinblick auf Barcode auslesen (geht ja über diese Barcodepistole des lokalen PC´s)
Kann Autoit auch mit Datenbanken arbeiten wie MySQL oder so?

Da ich denke, dass vielleicht auch andere Brains hier Ideen habe, möchte ich dies einfach mal so als Brainstormingthread nutzen um eure Meinungen dazu zu hören!

Gruß Volumeman

*gg* Tja stimmt, aber naja... funzt halt... irgendwie
wie sagt man so schön, "Ich nix wissen, ich nur tippen"

jo hast recht, ABER da kommt nix zwischen

schöenen Abend noch, und nochmals vielen lieben Dank an Progandy!!!

Progandy es funzt!!!!
Ich weiß zwar jetzt gerade nicht wieso, aber es funzt... *gg*

So ist das Stücken Code dazu... wie es funzt... weiß halt nur nicht genau, warum es das jetzt tut...

[autoit]

_IENavigate($oIE, "HIER")
_IELoadWait($oIE)
$sText6 = _IEBodyReadHTML($oIE)
$sanfang6 = '<SPAN class=weis>'
$ende6 = '</span></div>'
$gesucht6 = _StringBetween($sText6, $sanfang6, $ende6)
$gesucht6 = $gesucht6[0]
MsgBox(0,"",$gesucht6)

[/autoit]

Hier ist die Datei im Anhang! Wenn du nach 282 suchst, weißte nämlich was ich herauslesen will... der Wert hat sich nämlich jetzt schon geändert... auf die 282

hmmm jaja, soweit kommt ja auch keine Fehlermeldung, NUR anscheinend kann er da diesen String halt nicht lesen oder wie auch immer?

$gesucht6 = $gesucht6[0]
$gesucht6 = $gesucht6^ ERROR

kommt als Fehlermeldung... lasse ich die [0] weg, kommt nur 0 in der MsgBox heraus!

habe da wohl noch ein problem!

Habe folgenden String in der HTML, und möchte jetzt aber die 30 herausgelesen haben...

<div style="position:absolute; top:198px; left:290px; width:140px; text-align:right;"><span class="weis">30</span></div>

[autoit]

_IENavigate($oIE, "http://Hier")
$sText6 = _IEBodyReadHTML($oIE)
$sanfang6 = 'text-align:right;"><span class="weis">'
$ende6 = '</span></div>'
$gesucht6 = _StringBetween($sText6, $sanfang6, $ende6)
$gesucht6 = $gesucht6[0]
MsgBox(0,"",$gesucht6)

[/autoit]

So habe ich es eigentlich vor gehabt, funktioniert eigentlich auch bei vielen Sachen die ich auslesen möchte, nur halt da nicht.
Weißt du auch hier eine Lösung des Problems?