Script Hilfe

Chuck Norris

Also es sieht so aus:

Ich brauche eine externe .txt datei in welche ich ziffern reinschreibe nun soll mein script jeweils die erste zeile kopieren (ohne leerzeichen), dann diese löschen und dann in einer andren datei eintragen...
dann soll er wieder jetzt die nachgerückte erste zeile lesen, diese dann wieder löschen und soweiter und sofort

so das läuft auch ganz schön sowie ich es gemacht hat nur dauert es zulange meine lösung sieht so aus:

Code

$i = -1
While $i
WinActivate("Ziffernliste.txt - Editor", "")
$text = WinGetText("Ziffernliste - Editor", "")
//hier das erste problem ich weiß nicht wie ich es schaffe nur die erste zeile zu kopieren
$result = StringMid ( $text, 1, 7)


hier wird die andre datei geöffnet welche uninteressant ist.


Send ($result)


if...hier noch ne kleine verzweigung falls ich erfolg habe und die erste zeile übereinstimmt.

else...

	//jetzt das PROBLEM welches deutlich zeit in anspruch nimmt
       //ich verwende sooft del weil mir bisher noch keine andre lösung eingefallen ist die zeile zu löschn
	WinActivate ("ziffernliste.txt - Editor", "")
       	send ("{del}{del}{del}{del}{del}{del}{del}{del}{del}")
	endif

Alles anzeigen

**peethebee**

Hallo!

Mal ein paar Ideen dazu: Mit FileOpen, FileReadLIne und FileClose kannst du direkt auf die Datei zugreifen und bist damit nicht von Notepad abhängig.
In der Beta-Version hast du sogar die Möglichkeit, die Datei direkt (komplett) in ein Array einzulesen. Der Befehl dazu lautet

Code

_FileReadToArray()

und benötigt

Code

#include <Array.au3>

.
Das Array kannst du dann mit eine For-Schleife durchlaufen und jeweils mit StringReplace die Leerzeichen rausmachen. Das Ergebnis lässt sich mit

Code

_FileWriteFromArray()

in eine andere Datei schreiben.

Zur Syntax der einzelenn Funktionen siehe Beta-Hilfe.

Viel Erfolg,
peethebee

jonk

wenn ich es richtig verstanden habe, wird es in der Quelldatei immer nur eine Zeile geben. Du könntest zum Beispiel folgendes machen, um die Zeile ohne Leerzeichen auszulesen...

Code

$eineZeile = StringStripWS (FileReadLine($filehandle) , 8 )

**peethebee**

Hi!

@jonk: Dann würde aber immer die gleiche Zeile gelesen werden. Es soll aber jede Zeile nacheinander durchgegangen werden. Könnte man evtl. mit einer For-Schleife machen, abe rich würde meine Lösung von oben empfehlen.

@jonk 2: Evtl. in deiner Signatur "geht" durch "kann" ersetzen...

peethebee

**GtaSpider**

Zitat

Original von peethebee
@jonk 2: Evtl. in deiner Signatur "geht" durch "kann" ersetzen...

?? wiso das? Ich meine stell dir vor es geht keiner hin? es hat keiner lust?

jonk

peethebee
ich würde vorschlagen, wir nehmen Deine Array-Lösung und meinen Leerzeichenvorschlag

mit der Signatur haste recht...wird sofort geändert...

**peethebee**

Hallo!

@jonk: Ja, die Kombination sollte rocken. "Deine" Funktion habe ich noch nie benutzt - StringReplace tut es ja auch.

GtaSpider : siehe hier: Scripte einfach erstellen

peethebee

**GtaSpider**

hö? komm ich nicht ganz mit mit der signatur?

**GtaSpider**

ah... aso.. trozdem kann es auch´sein das sie einfach keine lust haben unwarscheinlich aber nicht unmöglich *g*

Chuck Norris

mit file open fileread und so hab ich gleich als erstes probiert aber dann hat er die file nicht gefunden wieso auch immer daher diese ausweichversuch

wie stellst du dir das mit array vor kannste das mal in mein script schreiben ich hab grad gar keinen plan was du meinst. hört sich aber gut an vor allem weil das tempo dadurch erheblich erhöht wird da es nicht ständig wechseln muss.

ah k jetzt weiß ich in etwa was du meinst wo find ich die beta hilfe?

wär trozdem net wenn du mir schnell was basteln könntest rest mach ich dann selber

**peethebee**

Hallo!

So in etwa stelle ich mir das vor:

Code

#include <File.au3>


Dim $workarray[1]
_FileReadToArray("C:\QuellDatei.txt", $workarray)


For $i = 1 to $workarray[0]
	$workarray[$i] = StringStripWS($workarray[$i], 8)
Next


_FileWriteFromArray("C:\ZielDatei.txt", $workarray, 1)

Alles anzeigen

Die einzlenen Befehle findest du in der Beta-Hilfe. Die wiederum bekommst du mit der Beta-Version mitgeliefter, Link dazu siehe Erste Hilfe

Zum Thema Pfadangabe: Lies mal die Sachen zur Verkettung von Strings (&) und zu Makros wie @ScriptDir. Mit ToolTips oder MsgBoxen kann man testweise ausgeben, was zusammengesetzt wird und damit Fehler minimieren.

peethebee

Chuck Norris

ja danke so hab ich alle leerzeichen beseitigt. aber wie mach ich das er immer die erste zeile liest? und diese dann löscht und die nächste nachrückt (welche dann die erste zeile ist)?

oder andre lösung wär das er immer die nächste zeile liest aber wie mach ich das?

edit/ hab ich ganz vergessen durch das leerzeichen sind ja keine umbrüche mehr da also steht theoretisch alles in einer zeile (auch wenn es nicht so dargestellt wird) und dann kann man keine zeilen lesen also muss hinter jedem wort eine zeile stehen!

edit2/ und fileopen geht bei mir auch nicht???

Chuck Norris

ok vielen dank jetzt klappts hatte die vergessen die erste schleife wegzustreichen so siehts jetzt aus:

Code

#include <File.au3>
Run (@ScriptDir & "anweisung1.exe")
Dim $workarray[1]
_FileReadToArray(@ScriptDir & "\Listen\quelle.txt", $workarray)
For $x = 1 to $workarray[0] 
					$result = StringMid ($workarray[$x], 1, 7)					


WinActivate ("window")
Send ("!e")
WinWaitActive ("window_2")
Send ($result)
WinWaitActive ("window_2")
send ("!o")
WinWaitActive ("window_3")
send ("{enter}")
if winactive ("window_3") then
	WinWaitActive("window_3")
		send ("s")
		WinWaitActive ("window_4")
		send ("{ENTER}")
		_FileWriteLog(@ScriptDir & "\erfolg.log","Du hattest erfolg:")
		_FileWriteLog(@ScriptDir & "\erfolg.log",$code)
		Msgbox(0,"Du hattest erfolg mit:"$workarray[$x])	
	else 
	WinWaitActive ("window")
	send ("{ENTER}")
		endif
next

Alles anzeigen

verbesserungsvorschläge zur erhöhung der geschwindigkeit sind erwünscht =)

//edit: so das ist die endgültige version

**peethebee**

Hallo!

Schön, wenn es funktioniert. Allerdings könnte ich es mir nicht erklären *g* - wolltest du nicht alle Zeilen letztlich pürfen? Dazu wäre die von mir oben angesprochene For-Schleife (oder eine andere Schleife) nötig...

peethebee

Chuck Norris

nein nicht prüfen sondern übertragen =). mehr kann ich leider nicht sagen.
für dich mag das etwas mergwürdig vorkommen aber es erfüllt seinen zweck und das sehr gut!

jetzt bastel ich mal noch ein bischen dran nur der optik wegen

**peethebee**

Ja, okay. Hat mich nur gewundert...

peethebee

geRRus

Zitat

Original von Chuck Norris
mehr kann ich leider nicht sagen.

Wird es die Welt verändern?und die HUngersnot beseitigen?;)

Chuck Norris

ok jetzt noch eine frage der soll in die quelle.txt oder workarray gleich zu beginn noch eine zeile einfügen bzw ein string und zwar FINISH. damit ich ne if bedingung machen kann wenn workarray=finish ist msgbox "Durchlauf beendet. Kein Erfolg"
und dann schließe programm