[VB 2005] branje teksta

ListBox1 je verjetno ListBox in ne TextBox (ki bi verjetno bil TextBox1).
Kar je še treba pogledat pri TexBoxu, je lastnost MultiLine, ki mora biti true.

Za številko vrstice pa naredi približno takole:
Pred Do dodaj: Dim i as Int = 1
Pri ReadLine pa: i.ToString() + fileReader.ReadLine()

se vedno ne bere vseh vrstic ( jih preskakuje in nimam pojma zakaj...msgBox mi prikaze drugo in peto, v ListBox1 se mi dodajo prva in cetrta)... i se mi povecuje sele po dodanem ukazu 1+=1

Dim fileReader As System.IO.StreamReader
fileReader = _
My.Computer.FileSystem.OpenTextFileReader("C:\test.txt")
Dim i As Integer = 1

Dim stringReader As String
Do
stringReader = fileReader.ReadLine()
MsgBox(i.ToString() + fileReader.ReadLine())
ListBox1.Items.Add(i.ToString() + stringReader)

i += 1

Loop Until fileReader.ReadLine() Is Nothing
End Sub

jeee hvala vsem! tako malo je blo treba....in skrati tako dosti!

Če fajl ni zelo velik, lahko prebereš vse, narediš split v array po vrsticah in potem prebereš določeno vrstico...

Dim vrstice() As String
vrstice() = vsebinaFajla.Split(vbCrLf)

' pokaze peto vrstico do (enojnih) navednic
MsgBox(vrstice(4).Substring(vrstice(4).IndexOf("'")))

Drugače pa pač daš en števec v loop za branje

ja, ukazi() je cel array, moraš mu povedat na kateri indeks boš shranil

ukazi(0) = "blabla" ' dela
ukazi() = "blabla" ' ne dela

delam tako, ker imam na zacetku vsake vrstice najprej komentar, ki ga ne potrebujem ampak ga imam da vem kaj imam v tisti vrstici. kar potrebujem je tisto za komentarjem...komentar se konca z vejico
dodal sem index ampak sevedno ista napaka

dim index as integer
index=1
dim ukazi() as string
Dim ukaziReader As System.IO.StreamReader
ukaziReader = _
My.Computer.FileSystem.OpenTextFileReader("C:\Ukazi.txt")
Dim stringUkaziReader As String
Do
stringUkaziReader = ukaziReader.ReadLine()

''''prebere kar je od vejice naprej, nato gre v drugo vrstico...kar mi prebere bi rad shranil....dal v pole...
ukazi(index) = stringUkaziReader.Substring(InStrRev(stringUkaziReader, ",")) '''' 'tu mi javi napako:
index = index + 1
Loop Until ukaziReader.EndOfStream


napaka ki mi jo javlja: Object reference not set to an instance of an object.

ukazi(index) = stringUkaziReader.Substring(InStrRev(stringUkaziReader, ","))

joj...ne najdem...
index se mi lepo postavi na 0, InStrRev(stringUkaziReader, ",")...mi da stevilko kjer naj zacne subsring od tringUkaziReader
drugo pa zgleda OK. booo...

če uporabljaš vs2005, piše, kje je problem. In sicer to, da ukazi array ni "instanciran". Ti si samo ustvaru prostor (spremenljivko), kamor naj bi se shranil array, ampak array-a pa nisi naredil. Torej je ukazi spremenljivka null oz. Nothing v VB.NET-u.

Rešitev:
Dim index As Integer = 0
Dim ukazi() As String
Dim ukaziReader As System.IO.StreamReader = My.Computer.FileSystem.OpenTextFileReader("F:\1.txt")
Dim stringUkaziReader As String
While Not ukaziReader.EndOfStream
ReDim Preserve ukazi(index)
stringUkaziReader = ukaziReader.ReadLine()

''''prebere kar je od vejice naprej, nato gre v drugo vrstico...kar mi prebere bi rad shranil....dal v pole...
ukazi(index) = stringUkaziReader.Substring(InStrRev(stringUkaziReader, ",")) '''' 'tu mi javi napako:
index += 1
End While

MessageBox.Show(ukazi.Length.ToString())

ReDim pomeni, da ustvari novo polje velikosti index. Preserver pa pomeni, da naj vrednosti iz prejšnjega polja ohrani v novem. To je to.

...

Array moraš inicializirat prej!

Aha... no ko se ti ustavi oziroma dobiš napako, poglej vse parametre (samo miško daš čez), pa boš videl, kateri ne štima

Nič se ne začnejo pri 1. Pri 0. Razen če imaš na roko nastavljeno Option Base 0

Pri VB6 se je index začel pri 1

Ne, se ni