problem i VB.Net

Vet inte om detta är det mest effektiva sättet men, du kan som du säger spara all data i en array, sedan loopar du igenom arrayen tar ut värdet genom att parsa den delen som är efter komma-tecknet (plus ett tecken), gör om det till en double och gör en jämförelse. Om talet är större än trettio så får du parsa ut namnet ur strängen och appenda den till din textbox!

Tack för svaret.

du vill inte ge lite kodexempel på hur du menar jag skall lösa det med en array?

på vilket sätt skulle du lösa det, om du inte skulle använda en array?

Har ingen möjlighet att skapa kod nu, men du får använda de funktioner som finns till klassen string för att först ta ut var det första kommat är. Sedan ta ut delsträngen med talet i genom indexet på kommat plus ett tecken. Använda dig av Convert.Double( "delsträngen" ) för att få ut strängen i form av en double. Sedan är det bara att jämföra talet med 30! :)

Nu antar jag att du fått in värdena i din array som jag kallar oArrNames...

For i=0 to oArrNames.length-1

If convert.ToDouble(oArrNames(1,i))>30 then
TextBox1.Text=Textbox1.text & oArrNames(0,i) & " " & oArrNames(1,i)
End If

Next

Otestad kod, men det är i a f en utgångspunkt. Koden lägger du i knappens clickevent eller på något annat lämpligt ställe.

tackar clarkbones

VB gillar inte oArrNames(0,i), det som kommer efter oArrNames.

felmeddelande?

Number of indices exceeds the number of dimensions of the indexed array.

Hur ser raden ut som felet kommer på?
Det låter som att du dimensionerar din array och sen stoppar in mer än du dimensionerat.

Hej

så här ser det ut

For i = 0 To arr.Length - 1

        If Convert.ToDouble(arr(1, i)) \> 30 Then
            TBSave.Text = arr(0, i) & " " & arr(1, i)

        End If

    Next

blir fel i detta uttrycken arr(1, i)

Kan du visa koden för när du fyller din array.

sr = File.OpenText("test.txt")
arr = Split(sr.ReadLine, ",")

    For i = 0 To arr.GetUpperBound(0)
        arr(i) = sr.ReadLine
    Next
    sr.Close()

Och hur ser textfilen ut?

Texten är följande:
Daniel, 25,5
Peter, 35,6
jonas, 45,5

Dim sr As StreamReader = New StreamReader("TestFile.txt")
Dim line As String
Do
   line = sr.ReadLine()
   dim s() as string = line.Split(',')
   if double.Parse(s(1])) > 30 then
      TBSave.Text &= " " & line 
   end if
Loop Until line Is Nothing
sr.Close()

tackar

den klagar på den här raden: dim s() as string = line.Split(',')

felmedelande: Additional information: Object reference not set to an instance of an object.

Nu då.

Dim sr As StreamReader = New StreamReader("TestFile.txt")
Dim line As String
Do While line Not Is Nothing
   line = sr.ReadLine()
   dim s() as string = line.Split(',')
   if double.Parse(s(1])) > 30 then
      TBSave.Text &= " " & line 
   end if
Loop
sr.Close()

Kanske får byta plats på line och Not.

inga felmedelanden nu.
bara att inget kommer ut i textboxen. line är nothing när jag kör

Du måste lägga antingen line = "nånting" eller line = sr.ReadLine() innan Do loopen annars kommer du aldrig in i den.

ok nu ligger line = sr.ReadLine() före loopen.
men då kommer kommer samma fel upp igen. dim s() as string = line.Split(',')

felmedelande: Additional information: Object reference not set to an instance of an object.