---
title: "problem i VB.Net"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/114225-problem-i-vb-net/page2"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "sorensson"
published: "2004-10-23T17:31:15.000Z"
updated: "2004-10-23T21:07:20.000Z"
replies: 22
views: 515
page: 2
pages: 2
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/114225-problem-i-vb-net"
---

# problem i VB.Net

_Sida 2 av 2._

## #21 — Dino, 2004-10-23T21:01Z

Testar vi så här istället då.

```
Dim sr As StreamReader = File.OpenText("test.txt")
Dim line As String
line = sr.ReadLine()
While Not input Is Nothing
   dim s() as string = line.Split(',')
   if double.Parse(s(1])) > 30 then
      TBSave.Text &= " " & line 
   end if
   line = sr.ReadLine()
End While
sr.Close()
```

Permalänk: https://www.webforum.nu/p/1467419

## #22 — PDahlen, 2004-10-23T21:04Z

Problemet är att du måste lägga sr.ReadLine() sist i loopen. Du lägger den innan Do för att läsa första raden, kommer in och gör vad du ska och läser sen nästa.
Du får felet för att när du kommer in i loopen och har läst sista raden så läser du en rad till, line blir nothing och så krashar det.

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

Permalänk: https://www.webforum.nu/p/1467421

## #23 — sorensson, 2004-10-23T21:07Z

Ett stort tack till er!! Nu funkar det

Permalänk: https://www.webforum.nu/p/1467422

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/114225-problem-i-vb-net/page2  
Föregående sida: https://www.webforum.nu/amne/dotnet/114225-problem-i-vb-net.md