.TXT einlesen, bestimmten Nummernkreis prüfen und ggf. ersetzen

ValleAIT

Hallo zusammen,

ich schreibe gerade ein kleines Script, das eine .txt Datei einliest und diese ausgibt.

Das knifflige ist allerdings, dass ich eine Inputbox habe wo ich "von" und "bis" eingebe.

Beim betätigen eines bestimmten Buttons, soll das Script prüfen, ob dieser Nummernkreis (von-bis) in der eingelesenen Datei
bereits vorhanden ist und wenn nicht, soll dieser Kreis erweitert werden.

Und genau bei dieser Prüfung hänge ich gerade fest. Hat jemand vielleicht einen Ansatz bzw. einen Codeschnippsel, der mir weiterhilft?

Weitere Fragen zum Zweck/Sinn des Scripts werde ich selbstverständlich bei Bedarf beantworten [Blockierte Grafik: http://www.codebot.de/wcf/images/smilies/smile.png]

Anbei auch ein Teil meines bereits geschriebenen Codes:

[autoit]

GuiCreate("GUI",550,600,-1,-1)
GUICtrlCreateLabel("Von", 180, 30)
GUICtrlCreateLabel("98110", 115, 64)
GUICtrlCreateLabel("+PZ", 233, 64)
GUICtrlCreateLabel("Bis", 360, 30)
GUICtrlCreateLabel("98110", 285, 64)
GUICtrlCreateLabel("+PZ", 402, 64)

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

$von = GUICtrlCreateInput("0000000",150,60,80,20,$ES_NUMBER)
GUICtrlSetLimit(-1, 7)
$bis = GUICtrlCreateInput("0000000",320,60,80,20,$ES_NUMBER)
GUICtrlSetLimit(-1, 7)

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

$erstellen=GuiCtrlCreateButton("Prüfen + Datei erstellen",175,500,200,50)
GUISetState(@SW_SHOW)

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

$Select = @DesktopDir & "\Einlesen.txt"
$outpout = @DesktopDir & "\Schreiben.txt"
$Open = FileOpen($Select, 0)
$Read = FileRead($Select)

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

$Select_Datei = GUICtrlCreateEdit($Read, 210, 100, 130, 300, $ES_AUTOVSCROLL + $WS_VSCROLL + $ES_READONLY)

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

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $erstellen

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

int($von)
int($bis)
$readvon = GUICtrlRead($von)
$readbis = GUICtrlRead($bis)
$vonlaenge = StringLen($readvon)
$bislaenge = StringLen($readbis)
If $vonlaenge < 7 Then
Msgbox($MB_ICONERROR,"Eingabe zu kurz","Der eingegebene von-kreis ist zu kurz")
ContinueCase
ElseIf $bislaenge < 7 Then
Msgbox($MB_ICONERROR,"Eingabe zu kurz","Der eingegebene bis-kreis ist zu kurz")
ContinueCase
EndIf

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

;MsgBox(0,"",$readvon)
;MsgBox(0,"",$readbis)

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

$CountLines = _FileCountLines($Select)

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

For $i = 1 to $CountLines Step 1
$line = FileReadLine($Open)
$array = StringSplit ( $line, "-")
$Readarray1 = $array[1]
$Readarray2 = $array[2]
;MsgBox(0,"",$Readarray1)
;MsgBox(0,"",$Readarray2)
$hFileOpen = FileOpen($outpout, $FO_APPEND)

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

FileWrite($hFileOpen, $line & @CRLF )
FileClose($hFileOpen)
Next

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

FileClose($Open)

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

EndSwitch
WEnd

[/autoit]

Inhalt der Einlesen.txt:
0000001-0023088
0023099-0060700
0060781-0194450
0194501-0196390
0196401-0196440
0196451-0804964
0804981-0804995
0804998-0995250
0995269-1050440

**Alina**

Könntest DU mal die "Einlesen.txt" und wenn nötig auch die "Schreiben.txt" posten als gepackten Anhang?

Vielen Dank.

**Alina**

Vielleicht hilft Dir folgendes, das aber nur als Anschauungsobjekt mal dargestellt wird.

AutoIt

#include <file.au3>
#include <array.au3>
local $iLine, $aDatei, $suchWert = "1000006", $sFilePath = @ScriptDir & "\Einlesen.txt" ; suchWert darf nur alleine in der Zeile stehen !!!
_FileReadToArray($sFilePath, $aDatei) ;Datei in Array einlesen
_ArrayDisplay($aDatei)
For $i = 1 To UBound($aDatei) - 1
	If $aDatei[$i] = $suchWert Then $iLine = $i ;Wenn der aktuelle Eintrag des Arrays mit dem Suchwort übereinstimmt, wird die Zeile in $iLine gespeichert.
		FileOpen("Schreiben.txt",1)
		FileWrite("Schreiben.txt", $suchWert & @CRLF)
		FileClose("Schreiben.txt")
Next

Alles anzeigen

Noch etwas gefunden, das weiter helfen könnte:

AutoIt

Global $s_FilePath = "Test.txt"
Global $s_Suchstring = "Test"
Global $h_File = FileOpen($s_FilePath)
Global $d_Counter = 1 ; Zähler für die aktuelle Zeilennummer
; Suche erst ab Zeile 2 starten
FileReadLine($h_File, 2)
; Datei zeilenweise von der aktuellen Position in der Datei aus durchsuchen
Do
	; nächste Zeile auslesen
	$s_Line = FileReadLine($h_File)
	If @error Then ExitLoop
; Zeile auf Suchstring hin untersuchen und Fund ausgeben:
	If StringInStr($s_Line, $s_Suchstring) Then MsgBox(0,"Gefunden", "Suchstring gefunden in Zeile " & $d_Counter)
	$d_Counter += 1 ; Zähler um 1 erhöhen
Until 0
FileClose($h_File)

Alles anzeigen

**BugFix**

Hier mal ein kleiner Denkansatz zum Vereinzeln der Werte. Das andere ist ja dann nur ein simpler Vergleich, solltest du schaffen. Wenns Probleme gibt, frag nach.

AutoIt

$sFile = _
'0000001-0023088' & @CRLF & _
'0023099-0060700' & @CRLF & _
'0060781-0194450' & @CRLF & _
'0194501-0196390' & @CRLF & _
'0196401-0196440' & @CRLF & _
'0196451-0804964' & @CRLF & _
'0804981-0804995' & @CRLF & _
'0804998-0995250' & @CRLF & _
'0995269-1050440' & @CRLF


$aNummernkreise = StringRegExp($sFile, '((\d{7})-(\d{7}))', 3)
; Array: [Von-Bis(1),Von(1),Bis(1),Von-Bis(2),Von(2),Bis(2),...]


For $i = 0 To UBound($aNummernkreise) -1
	If Mod($i,3) = 0 Then ConsoleWrite('Von-Bis: ' & $aNummernkreise[$i] & @CRLF)
	If Mod($i,3) = 1 Then ConsoleWrite('Von: ' & $aNummernkreise[$i] & @CRLF)
	If Mod($i,3) = 2 Then ConsoleWrite('Bis: ' & $aNummernkreise[$i] & @CRLF)
Next

Alles anzeigen

ValleAIT

Danke euch beiden für die Antwort.

Also ich muss ehrlich sagen, dass ich noch nicht so lange mit AutoIT arbeite und das da oben etwas kryptisch für mich aussieht Allerdings bestimmt ein guter Ansatz, da es im Prinzip wirklich nur ein Vergleich ist.

Der Vorgang sollte so sein:
die Einlesen.txt lautet bspw.:

0000001-0023088
0023099-0060700
0060781-0194450
0194501-0196390
0196401-0196440
0196451-0804964
0804981-0804995
0804998-0995250
0995269-1050440
Würde ich jetzt in der Zeile "von" den Wert 0020000 eingeben und bei "bis" den Wert 0021000, dann soll das Script erkennen, dass die beiden Werte innerhalb der Range der ersten Zeile des Einlesen.txt ist und das Script muss nichts anpassen.

Würde ich in der Zeile "von" den Wert 0023090 eingeben und bei "bis" den Wert 0023095, dann soll das Script erkennen, das die beiden Werten außerhalb der Range liegt und dann sollen die beiden Werte eingefügt und als Ausgabe.txt speichern.
Das würde dann folgendermaßen aussehen:
Ausgabe.txt:

0000001-0023088
0023090-0023095
0023099-0060700
0060781-0194450
0194501-0196390
0196401-0196440
0196451-0804964
0804981-0804995
0804998-0995250
0995269-1050440

Meine Idee wäre es mit mathematischen Vorgängen zu lösen(?): Das Script geht jede zeile durch und wenn die Summe negativ ist, dann soll das Script die Werte einfügen und abspeichern.

Entweder ich stelle mich gerade an oder bin zu doof dafür

**BugFix**

AutoIt

$inputVon = '0021000'
$inputBis = '0023000'


$sFile = _
'0000001-0023088' & @CRLF & _
'0023099-0060700' & @CRLF & _
'0060781-0194450' & @CRLF & _
'0194501-0196390' & @CRLF & _
'0196401-0196440' & @CRLF & _
'0196451-0804964' & @CRLF & _
'0804981-0804995' & @CRLF & _
'0804998-0995250' & @CRLF & _
'0995269-1050440' & @CRLF


$aNummernkreise = StringRegExp($sFile, '(\d{7})-(\d{7})', 3)
; Array: [Von(1),Bis(1),Von(2),Bis(2),...]


$sRange = ''
Local $iVon, $iBis


For $i = 0 To UBound($aNummernkreise) -1 Step 2
	$iVon = Int($aNummernkreise[$i])
	$iBis = Int($aNummernkreise[$i+1])
	If $iVon <= Int($inputVon) And $iBis >= Int($inputBis) Then
		$sRange = StringFormat('%s-%s', $aNummernkreise[$i], $aNummernkreise[$i+1])
		ExitLoop
	EndIf
Next


If $sRange <> '' Then
	ConsoleWrite('Bereich existiert in: ' & $sRange & @CRLF)
Else
	ConsoleWrite('Bereich noch nicht vorhanden.' & @CRLF)
EndIf

Alles anzeigen

ValleAIT

Zitat von BugFix

AutoIt

$inputVon = '0021000'
$inputBis = '0023000'


$sFile = _
'0000001-0023088' & @CRLF & _
'0023099-0060700' & @CRLF & _
'0060781-0194450' & @CRLF & _
'0194501-0196390' & @CRLF & _
'0196401-0196440' & @CRLF & _
'0196451-0804964' & @CRLF & _
'0804981-0804995' & @CRLF & _
'0804998-0995250' & @CRLF & _
'0995269-1050440' & @CRLF


$aNummernkreise = StringRegExp($sFile, '(\d{7})-(\d{7})', 3)
; Array: [Von(1),Bis(1),Von(2),Bis(2),...]


$sRange = ''
Local $iVon, $iBis


For $i = 0 To UBound($aNummernkreise) -1 Step 2
	$iVon = Int($aNummernkreise[$i])
	$iBis = Int($aNummernkreise[$i+1])
	If $iVon <= Int($inputVon) And $iBis >= Int($inputBis) Then
		$sRange = StringFormat('%s-%s', $aNummernkreise[$i], $aNummernkreise[$i+1])
		ExitLoop
	EndIf
Next


If $sRange <> '' Then
	ConsoleWrite('Bereich existiert in: ' & $sRange & @CRLF)
Else
	ConsoleWrite('Bereich noch nicht vorhanden.' & @CRLF)
EndIf

Alles anzeigen

Ja, sowas habe ich gesucht! Vielen Dank dafür!

Können wir vielleicht das ganze noch verfeinern? Wie oben erwähnt, ich habe noch nicht wirklich viel Erfahrung mit AutoIT und so einen Code wie du ihn geschickt hast, wäre ich vermutlich nicht gekommen.

Ich wäre sehr dankbar, wenn wir das irgendwie hinbekommen könnten

EDIT:

Habe nun etwas rumprobiert, allerdings kriege ich es nicht hin, das die Ausgabe.txt den fehlenden Nummernkreis an der richtigen Stelle einfügt. Hier der Code:

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

...