Beiträge von x0r

Ok, das ist ein Wort (auch wenn die Funktion in "String.au3" voll umständlich is :D)

Aber gibts auch schon sowas?
(Selbstverständlich mit meiner Version des "_StringReverse()" (Achtung, Spielerei!)):

dim $cnt, $rtx, $txt, $txr, $final, $len, $txt2

dim $1 = inputbox("Eingabe","Text")

msgbox(64,"Split-Reverse",spl($1))

func spl($1)

dim $cnt = stringlen($1)
dim $rtx = reverse($1)

while $cnt > 0
$txt = stringleft($rtx,$cnt) & " " & $txt
$txr = $txr & " " & stringright($1,$cnt)
$cnt = $cnt -1
WEnd
Return $txr & "-" & $txt
EndFunc

func reverse($txt2)

dim $len = stringlen($txt2)

while $len > 0
$final = $final & stringmid($txt2,$len,1)
$len = $len -1
WEnd
Return $final
EndFunc

Grüße
x0r

Hi,

hab hier eine Kleinigkeit gebastelt, ob sinnvoll oder nicht, entscheidet jeder für sich
(hab ebenfalls das Forum nach einer ähnlichen Funktion durchsucht, aber nichts entdeckt, sollte es schon vorhanden sein, bitte ich vielmals um Entschuldigung ^^)

dim $len, $final
dim $text = inputbox("Reverse","Text eingeben:")

reverse($text)

func reverse($text)
dim $len = stringlen($text)

while $len > 0
$final = $final & stringmid($text,$len,1)
$len = $len -1
WEnd
return $final
EndFunc

msgbox(64,"Ausgabe",$final)

Exit

P.S.: Ich hoffe die Variablennamen sind diesmal sinnvoll vergeben, um einer sinnfreien Kritik zu entgehen!

Grüße
x0r

is doch wurscht wie ichs mach, solange es funktioniert...
meine scripte wird sowieso nie irgendjemand anschauen oder zu gesicht bekommen, von daher is das vollkommen egal

wenn du die funktion nutzen möchtest, bitte, bedien dich, füg sinnvolle variablennamen ein oder lass es.. das is jedem selbst überlassen

bin halt kein vollprofi - und genau aus dem grund solltest du mich eher unterstützen, als sinnfreie kritik zu üben, danke für die aufmerksamkeit

die var-namen bringen mir/dir 0, wenn die in einer separaten 'include'-datei stehen

wenn mans benutzen will oder wird, sind die 3 felder nicht sooo schwer zu merken denk ich..
abgesehen davon mach ichs sogar in mIRC immer falsch (vertausch die letzten beiden vars), obwohl ichs schon jahrelang nutz

Gruß
x0r

So, hab mich jetz endlich mal genauer damit auseinander gesetzt. Vielleicht bringts dem ein oder anderen was:

func _gettok($1,$2,$3)
$aTokens = StringSplit($1, $2)
Return $aTokens[$3]
EndFunc

_gettok(text,segment,zeichen)

Bsp.:
_gettok("text test1 test2 test3",1," ") = text
_gettok("text test1 test2 test3",2," ") = test1
_gettok("text test1 test2 test3",3," ") = test2
usw..

Wenn ich jetz nurnoch wüsste, für was ich diese Funktion gebraucht hätte

Grüße
x0r

wow tausend dank, das bringt mich einen riesen schritt weiter, wenn jetzt die paste-funktion endlich nicht mehr ins leere läuft

so, jetz hab ich noch ein problem..

und zwar: gibt es eine möglichkeit abzufragen, wieviele werte in einem array definiert sind?

z.b.:

dim $array[200]

$array[0] = blubb1
$array[1] = blubb2
$array[2] = blubb3
$array[3]= ""
... die restlichen sind leer - kann man da irgendwie eine "3" rauszukriegen?

ich hoffe ihr wisst was ich meine, bin mit meiner kreativität langsam am ende

Gruß
x0r

habs nun wie folgt gelöst, die variante mit den arrays von "chip" ist gar nicht so verkehrt

kopiert die nötigen sachen aus dem programm, zeile für zeile und fügt die dann in einer ms access datenbank ein. paar vars scheinen nicht deklariert, das script ist nach oben hin aber noch größer, dort sind die vorhanden

ich weiss, man hätte gegen ende noch ne schleife einbaun können, es sind aber nur 9 elemente die ich einfügen möchte.
soweit läufts

Gruß
x0r

ok, danke euch!!!

ja sowas ähnliches..

ich mach nebenbei (naja mehr hauptsächlich) noch mIRC Scripting (https://autoit.de/www.mirc.com (irc chat client)) und da gibts einen befehl, der nennt sich "$gettok()".

damit kann man z.b.:

var %i = blubb asdf test usw
return $gettok(%i,3,32)

== blubb asdf test
-
(erste zahl ist die stelle, zweite zahl ist der ascii-wert für das gesuchte zeichen)

alles bis zum 3. leerzeichen ausgeben.

dachte, vielleicht gibts sowas auch für autoit

Gruß
x0r

Hi,

ich bins wieder

gibt es eine möglichkeit eine variable bis zum sagen wir 3. "_" auszulesen?

z.b.:

$var1 = "blubb test_123 asdf_123"

ich möchte jetzt alles bis zum 2. "_" haben, also "blubb test_123 asdf".

finde in der hilfe leider nix, ist für anfänger ziemlich schwierig, da was zu finden

Danke für eure hilfe!!!

Gruß
x0r

ja, danke für den tipp. ich hab jetz einfach die beiden copy&paste funktionen in eine gebaut, es läuft

und jetz darf ich 2 jahre warten, bis der alles aus dem ends lahmen programm kopiert hat :pinch:

Gruß
x0r

guten morgen!

soeben hab ich was getestet, und zwar:

2 funktionen gebastelt, in funktion1 werden die arrays definiert und funktion2 soll diese dann quasi weiterkopieren.
was mir hierbei aufgefallen ist: arrays werden nur für die jeweilige funktion erkannt, richtig?
wenn ich alles in eine funktion bastel, funktionierts tadellos, aber bei 2 funktionen eben nicht mehr...

ich denk nu hab ichs kapiert - lieber spät als nie?

danke an euch!!!

Grüße
x0r

danke leute, werd ich morgen mal versuchen. muss so zeuch für meine arbeit schreiben und hab das dementsprechende script leider nicht zuhause. geb dann bescheid

ja, hab ich versucht, allerdings krieg ich 0 infos, ausser koordinaten..
das programm wird niemand kennen, es nennt sich "Gii" und ist eine eigenkreation eines edv-konzerns

Hi,

ich hab mir gedacht, ich könnte ja eine kleine funktion basteln, die mir aus einem programm zeile für zeile ausliest, diese in arrays einliest und zum schluss array für array in einer excelliste einfügt. soweit so gut, mein problem jetzt ist aber, dass in diesen arrays beim "report" nichts drin steht, bzw er nur das was zuvor schon im clipboard stand einfügt

hoffe der text ist einigermaßen verständlich, häng daran jetzt schon ein paar stunden - bin für jede hilfe dankbar!!

p.s.: es sind deswegen soviele "sleeps" drin, weil das programm sau langsam ist -.-

func copy()
dim $i = 0
dim $array[89]

;ins programm klicken
MouseClick("left",325,485)
sleep(200)

For $i = 0 to 89

send("^c")
sleep(300)
$array[$i] = StringRegExpReplace(ClipGet(),' ','_')
sleep(100)
send("{down}")
sleep(100)

;wenn scrollbalken am ende, zur nächsten funktion springen
$balken = _ImageSearch("pics\service_balken.bmp",1,$r1,$r2,2)

if $balken = 1 Then
report()
EndIf

Next

report()
EndFunc

Grüße
x0r

Tausend Dank!!!
Auf "number" wär ich nie gekommen

Hab ja gesagt, ein Mini-Problem.

Grüße
x0r

Hi,

hab mal wieder ein (vermutlich klitzekleines) Problem

Ich kopiere aus einer Excelliste eine Spalte mit einer Zahl, die am Anfang "DE" enthalten kann, oder aus einer ganzen Zahl besteht, z.b:
"DE12345" oder "12345"

Jetzt möchte ich 2 verschiedene Such-Felder nutzen, eins für die ganze Zahl und eins für die DE-Nummer. Folgende paar Zeilen hab ich dafür gebastelt, allerdings funktioniert es nicht so wie es soll, hab schon versucht mit isint, isnumber, usw, usf...:

$omega = StringRegExpReplace($omega, " ", '')

if IsInt(StringLeft($omega,2)) then
$searchnum = "ref"
Else
$searchnum = "omega"
EndIf

if $searchnum = "omega" Then
osearch()
Else
rsearch()
EndIf

Die beiden Funktionen osearch() und rsearch() sollen lediglich ins 'richtige' Feld springen, fügen ein und suchen, nix aufregendes.

Bin für jede Hilfe sehr dankbar!!

Grüße
x0r

wow tausend dank bin halt noch ein noob, aber das wird schon denk ich

Hi,

wollte nur zum Test eine keine Schleife erstellen, die mir eine Variable von 1 bis 255 hochzählt und den Wert jeweils als ASCII in einer Textdatei ausgibt.
Die Variable wird sauber hochgezählt und stoppt planmäßig bei 255 wie es sein soll, allerdings stimmt der ASCII-Wert überhaupt nicht. Habe es mit 3 verschiedenen Schleifen-Arten probiert, jede macht den selben Mist.

Hoffentlich könnt ihr mir helfen?

Danke&Grüße
x0r

run("notepad.exe")
winwaitactive("Unbenannt")

sleep(100)

do
send($i & " = " & "{asc($i)}" & "{enter}")
$i = $i + 1
until $i = 256

exit