var from *.txt

**Alina**

Hallo ihr lieben.

Ich habe Constanzen erstellt und mein Problem ist, wie man bei dem Quelltext sieht, das auslesen von Buchstaben (Buchstabenfolgen) aus Textdateien. Problem C1, C2 und C4.

Spoiler anzeigen

; Const
Const $A1 = "65151-2-AH-159"
Const $A2 = "Ersterscheinung"
Const $A3 = "Interpret"
Const $A4 = "Song"
Const $A5 = "Zeit"
Const $A6 = "Status"
Const $A7 = "Komponist"

Const $B1 = "\1950" ; Songst bis 31.12.1959
Const $B2 = "\1960" ; Sonst zwischen 01.01.1960 bis 31.12.1969
Const $B3 = "\1970" ; Sonst zwischen 01.01.1970 bis 31.12.1979
Const $B4 = "\1980" ; Sonst zwischen 01.01.1980 bis 31.12.1989
Const $B5 = "\1990" ; Sonst zwischen 01.01.1990 bis 31.12.1999
Const $B6 = "\2000" ; Sonst zwischen 01.01.2000 bis ???

Const $C1 = ?1 ; steht in mp3_1.txt Zeile 1 erster Buchstabe
Const $C2 = ?2 ; steht in mp3_2.txt Zeile 1 zweiter Buchstabe
Const $C3 = "65151-2-159" ; mitgleidsnummer die beiden Buchstaben für Vor- und Nachname
Const $C4 = ?3 ; Zahlungscode - steht in mit_zah.txt Zeile 17 Buchstabe 21-32

Komme mit den Befehlen FileRead, FileReadLine, FileClose, FileOpen einfach nicht klar.

Nachtrag: Habe etwas vergessen ich möchte die Daten aus den Textdateien auslesen lassen, da sich die öfters verändern. Das zur Information.

Liebe Grüße, Lina

**peethebee**

Hi!

$line = FileReadLine(@ScriptDir & "\mp3_1.txt", 1) ; Datei und Zeile
$res = StringMid($line, 1, 1) ; erst Startwert, dann Länge

Der Buchstabe steht dann in $res, analog geht es für die anderen Fälle

peethebee

**Alina**

Hallo Peethebee .

Habe doch noch ein Problem.

Variablen:

Const $A3 = FileReadLine(@ScriptDir & "\parameter.txt", 3)
$res = StringMid($A3, 6, 52)
FileClose($A3)
Const $A4 = FileReadLine(@ScriptDir & "\parameter.txt", 4)
$res = StringMid($A4, 6, 20)
FileClose($A4)
Const $A5 = FileReadLine(@ScriptDir & "\parameter.txt", 5)
$res = StringMid($A4, 6, 19)
FileClose($A4)

Auzug aus der parameter.txt:
A1 = 65151-2-AH-159
A2 = Ersterscheinung
A3 = "http://www.123456789.de/download/12345678.exe"
A4 = "\12345678.exe"
A5 = "12345678.exe"

Scriptauszug:
SplashOff()
InetGet($A3, @ScriptDir & $A4)
Run(@ScriptDir & $A4)
ProcessWaitClose($A5)

Weiß nicht wieso er das nicht möchte.

Liebe Grüße Lina.

**Xenobiologist**

Hi,

welcher Fehlermeldung? Rückgabewerte gecheckt? Wieso stellst du nicht auf IniRead um und machst ne Ini aus der Txt?

So long,

Mega

**Alina**

Hallo th.meger.

Habe jetzt einmal den PC neu gestartet, dann neu compaliert und dann ging es. Weiß auch nicht warum es jetzt ging.

IniRead? Weil ich das noch nicht kann. Weiß noch nicht wie man mit autoIT eine INI erstellt, da rein schreibt und dann diese für eine Constante ausließt. Dazu kommt ja, das es nicht nur eine Constante ist.
Aber lieb gemeint.

Liebe Grüße, Lina.

**Der_Doc**

Hi,
vieleicht kann ich helfen mit einem au3 Script

[autoit]

Dim $inidatei = "inidatei.ini"

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

$port = IniReadSection(@ScriptDir&"\"&$inidatei, "Port")
If @error Then
MsgBox(4096, "", "Es wurde kein Eintrag gefunden!")
Else
if $port[3][1] +1 = $port[2][1] then $port[3][1] = $port[1][1]

MsgBox(0, "Result read", $port[3][1])
$port[3][1]= $port[3][1]+1

MsgBox(0, "Result write", $port[3][1])
IniWrite(@ScriptDir&"\"&$inidatei, "Port", "Portnummer", $port[3][1])
$port = $port[3][1]-1
EndIf

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

MsgBox(4096,"Port",$port)

[/autoit]

INI-Datei:

[Port]
portnummerstart=50000
portnummerend=50100
portnummer=50013

kurze Erklärung:

Das Skript hatt einen Startport "50000" und einen Endport "50100".
Bei jedem Durchlauf wird nachgeschaut wie der aktuelle Port ist und addiert ihn mit 1. Wenn der Port den Wert 50099 erreicht wird er auch um 1 addiert und dann auf den Wert 50000 zurückgesetzt.

MfG
Der_Doc

**Alina**

Hallo Doc.

Ich danke Dir herzlich. Werde mich aber später mal mit der INI beschäftigen. Habe es mir aber ausgedruckt.

Liebe Grüße, Lina *gähn und müde*

**Der_Doc**

Hi,
das mit InI-Dateien ist garnet so schlimm. Arbeite gerne mir der Funktion und ist auch in der Hilfe gut beschrieben.

MfG
Der_Doc