Olla alle zusammen,
zunächst ein gutes erfolgreiches und vor allem ein gesundes neues Jahr für euch alle.
Ich glaub ich krieg Hirnfrost: ich möchte die Zeilen eines Textes einlesen und alles ab dem Unterstrich weg haben.
die Textzeilen sehen so aus:
Rechnername1_Port1
Rechnername2_Port2
.
.
.
Rechnername32_Port32
Jetzt habe ich schon so viel mit Stringsplit und Arrays etc. gearbeitet aber vermutlich hat mir die spanische Wintersonne das Hirn frittiert. Ich krieg das nicht hin
Spoiler anzeigen
#include <Array.au3>
#include <AutoItConstants.au3>
#include <File.au3>
#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <String.au3>
#include <StringConstants.au3>
$sFilePath = "E:\Portnamechanger\PortStrings.txt"
Example()
Func Example()
Local $aFileRead[1]
Local $hFileOpen = FileOpen($sFilePath, $FO_READ)
Local $a_String[1]
If $hFileOpen = -1 Then
MsgBox($MB_SYSTEMMODAL, "", "Es ist während dem lesen der Datei ein Fehler aufgetreten.")
Return False
EndIf
Local $s_String = ""
Local $a_String[1]
Local $aArray
For $i = 1 To 32 Step 1
ReDim $aFileRead[UBound($aFileRead) + 1]
$aFileRead[UBound($aFileRead) - 1] = Stringsplit(FileReadLine($hFileOpen, $i), "_")
_ArrayAdd($a_String, $aFileRead[UBound($aFileRead) - 1])
Next
_ArrayDisplay($a_String)
EndFunc ;==>Example
Mit dem Code im Spoiler sieht das Ergebnis so aus:
Row|Col 0
[0]|
[1]|1
[2]|
[3]|2
[4]|Rechnername1
[5]|Port1
[6]|2
[7]|Rechnername2
[8]|Port2
[9]|2
[10]|Rechnername3
[11]|Port3
Hat jemand eine Idee a) woher die Einträge mit den Zahlen herrühren und b) wie ich die Einträge Port x weg bekomme? mit Redim vielleicht...
Oder ist der komplette Ansatz Grütze?