|
| Autor |
Nachricht |
skyloop
Newbie
Anmeldedatum: 07.08.2009
Beiträge: 5
|
VB Text einlesen
Verfasst am: 20.08.2009, 09:05 |
|
|
Hallo Leute,
ich habe ein Textfile, dass folgendermaßen aussieht:
[mod1]
abc
abd
[mod2]
yxcv
sdf
[mod3]
sdf
asdf
ich kann das Textfile einlesen.Das klappt soweit. Ich möchte erreichen, dass nur bis [mod2] eingelesen wird. bzw.bis [mod3]
Momentan lese ich die komplette Spalte ein. |
|
| |
|
 |
chris213
Newbie
Anmeldedatum: 19.08.2009
Beiträge: 2
|
Verfasst am: 20.08.2009, 09:13 |
|
|
| Code: | Dim ar() As String = System.Text.RegularExpressions.Regex.Split(My.Computer.FileSystem.ReadAllText("Pfad"), vbCrLf)
Textbox1.Text = ar(0)
Textbox2.Text = ar(1) |
also bei pfad musst du den Pfad angeben
bei textbox1,2 musst du angeben in was du die zeile öffnen willst, also wo der text dan steht.
und 0, 1 sind die zeilen.also bei die dan ar(5) ar(6) ar(7) halt alles unetreinander |
|
| |
|
|
skyloop
Newbie
Anmeldedatum: 07.08.2009
Beiträge: 5
|
Verfasst am: 20.08.2009, 09:59 |
|
|
Danke dir für die Antwort.
Ich habe da noch ein anderes Problem
Textfile ist wie folgt: ''(dabei sind die einzelnen Spalten immer durch ein Tab getrennt)
[mod1]
aa bb cc dd ed
ab sd df bb df
[mod2] ''die Zeilen bei mod2 haben weniger Spalten
aa bb cc dd
ab sd df bb
[mod3]
GND 19,20,21,22,26,27,28,39,44,45,46,47,48,49,50,51,52
Mein Code ist:
Module Module1
Sub Main()
Dim line As String
Dim list As New List(Of String)
Using reader As IO.StreamReader = New IO.StreamReader("C:\Test_Vectors.txt")
line = reader.ReadLine
Dim PinNr(Anzahl) As String 'String für PinNr
PinName(Anzahl) As String
Dim i As Integer = 0
Dim tempString As String
Dim tempStringLine As String
Dim tabPosition As Integer
line = reader.ReadLine
line = reader.ReadLine
tempString = "leer"
Do While (Not line Is Nothing)
tabPosition = line.IndexOf(Chr(9)) ''Chr(9) steht für Ein Tabulatorzeichen
If tabPosition <> -1 Then
tempString = line.Substring(0, tabPosition) ''liest die Zeile von 0 bis Tab
End If
PinNr(i) = (tempString) '' Speichert die erste Spalte unter PinNr
Console.Write(tempString + "|") '' hier wird Spalte ausgegeben und + "|"
tabPosition = tabPosition + 1 '' rückt zur nächsten Spalte
tempStringLine = line.Substring(tabPosition)
tabPosition = tempStringLine.IndexOf(Chr(9))
If tabPosition <> -1 Then '' nächste Spalte wird dem String TempString übergeben
tempString = tempStringLine.Substring(0, tabPosition)
End If
PinName(i) = tempString ''zweite Spalte wird unter PinName abgespeichert
Console.Write(tempString + "|")
Console.WriteLine()
line = reader.ReadLine
Loop
End Using
Console.WriteLine(line)
Console.ReadLine()
End Sub
End Module
Mein Problem ist, dass die Spaltenzahlen von den einzelnen [modi] unterschiedlich sind. und Ich jeden [modi] unterschiedlich behandeln muss.
Ich will erstmal alles aus Mod1 laden
dann alles aus mod2
dann mod3
?? |
|
| |
|
|
|
|
Registrieren
Login
