Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Läsa rader i en textfil

Postades av 2005-01-20 21:06:07 - Carsten Johansson, i forum vb.net, Tråden har 5 Kommentarer och lästs av 506 personer

Söker efter en kod som ta bort det första raden och den sista och visa resultatet i en Textruta

Någon som har en bra kod man kan få


Svara

Sv: Läsa rader i en textfil

Postades av 2005-01-21 08:19:49 - Mikael Wedham

<code>

'Öppna textfilen för läsning.

'Läs en rad, då försvinner den...

'Läs in en rad till (= rad 2)

'Loopa

'Lägg till rad i stringbuilder

' Läs rad

'Slut? Hoppa ut, annars gå till Loopa...

'Lägg in Stringbuildern i textboxen.
</code>

Detta gör att första och sista raden inte kommer in i Textboxen.

/micke


Svara

Sv:Läsa rader i en textfil

Postades av 2005-01-21 10:06:24 - Carsten Johansson

Ser ju bra ut, nu fattas det bara lite kod.

Har kollat runt lite och hittat en del som inte fungerar riktigt så jag tog min chans att skriva det här.


Svara

Sv: Läsa rader i en textfil

Postades av 2005-01-21 20:26:49 - Andreas Håkansson

Carsten,

Ta dig en titt på <b>System.IO</b> namnrymden, speciellt på <b>StreamReader</b> klassen som låter dig ange ett namn på en fil att läsa ifrån när du skapar den. När du väl har skapat din ström kan du använda <b>ReadLine</b> metoden på din ström för att läsa i den - den returnerar <b>Nothing</b> när du har läst till slutet.


Svara

Sv:Läsa rader i en textfil

Postades av 2005-01-21 20:39:15 - Carsten Johansson

Hmm tackar, nu har jag lite mer info


Svara

Sv: Läsa rader i en textfil

Postades av 2005-01-21 22:20:10 - André Claesson

Nu programmerar jag inte i VB.Net men jag skrev denna som funkar fint.

<code>
Imports System.IO
</code>
<code>
Dim sr As StreamReader
Dim line As String, text As String

sr = New StreamReader("c:\test.txt")

sr.ReadLine() 'Skippa första raden

line = sr.ReadLine()

While Not line Is Nothing
If Not text = "" Then text += vbCrLf
text += line
line = sr.ReadLine()
End While

sr.Close()

text = text.Substring(0, text.LastIndexOf(vbCrLf)) 'Ta bort sista raden

TextBox1.Text = text
</code>

/Andrec


Svara

Nyligen

  • 19:55 kick-off med fokus på hälsa?
  • 19:53 kick-off med fokus på hälsa?
  • 16:24 Föreslå en skönhetsklinik online
  • 16:23 Föreslå en skönhetsklinik online
  • 18:42 Hvor finder man håndlavede lamper
  • 18:41 Hvor finder man håndlavede lamper
  • 16:36 Allt du behöver veta om keramiskt
  • 16:14 Vem anlitar man egentligen när tak

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 722
27 958
271 751
887
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies