Tein tässä ohjelman, mikä lukee txt-tiedostoa, ja tulostaa lukemansa tekstin Labeliin... Toimi muuten ihan kivasti, mutta ääkköset jäivät jonnekin, eli kun siellä tiedostossa luki: "Tämä on tekstiä", niin labeliin tulostuikin vain "Tm on teksti"
Tässä koodi:
Dim FILE_NAME As String = "c:\temp\test.txt"
Dim sr As StreamReader = File.OpenText(FILE_NAME)
Dim line As String
Dim Text As String
Do
line = sr.ReadLine()
Text = Text line
Loop Until line Is Nothing
sr.Close()
Label1.Text = Text
Tämä on sitten äkkiä kasattu testi ohjelma... Minä vaan opettelen perusteita.
Olisiko jossain kohtaa pitänyt määritellä ohjelma käyttämään jotain tiettyä koodisivua tms? Ja jos olisi, niin miten se olisi pitänyt tehdä?
Ääkkösten luku?
Typerys...
8
1144
Vastaukset
- Tommi
Olisiko tuo tekstitiedosto kenties Unicode-muodossa ? Jos näin on, pitäisi tuo luettu puskuri käyttää jonkin UTF-konversion läpi ennen tulostamista.
- Typerys...
Tarkistin asiaa, olen juuri vaihtanut käyttöjärjestelmää, ja XP:n muistio olikin hieman monimutkaisempi kuin edellisissä...
Tuo txt-tiedosto olikin tallennettu ANSI muotoisena...
Tallensin tekstitiedoston uudestaan UTF-8 koodauksella ja nyt se toimii...
En edes ajatellut, että yksinkertaisen txt-tiedoston voisi tallentaa useammalla eri tavalla... Kiitän avustasi. - Toinen Typerys
Typerys... kirjoitti:
Tarkistin asiaa, olen juuri vaihtanut käyttöjärjestelmää, ja XP:n muistio olikin hieman monimutkaisempi kuin edellisissä...
Tuo txt-tiedosto olikin tallennettu ANSI muotoisena...
Tallensin tekstitiedoston uudestaan UTF-8 koodauksella ja nyt se toimii...
En edes ajatellut, että yksinkertaisen txt-tiedoston voisi tallentaa useammalla eri tavalla... Kiitän avustasi.Alle viikon olen itse VB:tä opiskellut, mutta eikö tällä tavalla olisi helpompi lukea tekstitiedostoja?
Dim luettu As String
Open "C:\tiedosto.txt" For Input As #1
Input #1, luettu
Close #1
Label1.Caption = luettu
Jos tämä tyyli ei käy, niin miksei? - Typerys...
Toinen Typerys kirjoitti:
Alle viikon olen itse VB:tä opiskellut, mutta eikö tällä tavalla olisi helpompi lukea tekstitiedostoja?
Dim luettu As String
Open "C:\tiedosto.txt" For Input As #1
Input #1, luettu
Close #1
Label1.Caption = luettu
Jos tämä tyyli ei käy, niin miksei?Toimiiko .NET versiossa?
Juuri kokeilin, ja heitti vaikka mitä erroreita... - Toinen Typerys
Typerys... kirjoitti:
Toimiiko .NET versiossa?
Juuri kokeilin, ja heitti vaikka mitä erroreita....NETistä en tiedä mitään, VB6:lla kun itse ohjelmoin, ja siinäpä onkin vastaus kysymykseeni miksei koodi kelpaa ;)
- Typerys...
Toinen Typerys kirjoitti:
Alle viikon olen itse VB:tä opiskellut, mutta eikö tällä tavalla olisi helpompi lukea tekstitiedostoja?
Dim luettu As String
Open "C:\tiedosto.txt" For Input As #1
Input #1, luettu
Close #1
Label1.Caption = luettu
Jos tämä tyyli ei käy, niin miksei?Dim FILE As String
Dim Luettu As String
Dim kaikki As String
FILE = "c:\tiedosto.txt"
FileOpen(1, FILE, OpenMode.Input)
Do Until EOF(1)
Input(1, Luettu)
kaikki = kaikki Luettu
Loop
FileClose(1)
Label1.Text = kaikki
Lueskelin vähän input-komennosta, ja sain kasattua tuommoisen version... Tuo toimii .NETissä. Jos nyt jotain sattuu kiinnostamaan... Tosin ilmeisesti tuo taas vaatii sen että tiedoston koodaus on ANSI, eikä UTF-8 kuten tuolla toisella tavalla...
- -jk-
Tuonhan voi tehdä vaikkapa näin:
Imports System.IO
Dim Sr As StreamReader = New StreamReader("c:\temp\test.txt", System.Text.Encoding.Default)
Dim line As String
Dim Text As String
Do
line = Sr.ReadLine()
Text = Text line
Loop Until Sr.Peek = -1
Sr.Close()
Label1.Text = Text
Parempi käyttää Peekiä kuin Nothingia, koska tyhjä stringi (eli jos on pelkkä rivinvihto) lopettaa tekstitiedoston lukemisen.- Typerys...
Otsikossa olikin jo kaikki oleellinen... Eli kiitos.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Valtion alijäämä = yritystukien määrä = 10 mrd. euroa
Mutta persut eivät vaan suostu tasapainottamaan valtion budjettia, vaikka yritystuet on tiedetty haitallisiksi. Miksi p957277Suomi käyttää sosiaalietuuksiin suhteessa eniten rahaa koko maailmassa
Suomi käyttää sosiaaliturvaetuuksiin enemmän rahaa suhteessa bruttokansantuotteeseen kuin mikään muu maa maailmassa. Su3576348Grahn-Laasonen: "Kansalainen joutuu pettymään, jos demareita äänestää"
Ministeri viittaa tuoreeseen Helsingin Sanomien juttuun, jossa demarijohtajan keinoja Suomen suunnan muuttamiseksi esite583693Vähän fiksumpi Nimi kisa ? :=)
Kirjoita teidän etunimet allekkain. Jos nimissä on joku kirjain sama, poista se. Tee sama tarkistus kaikille kirjaimill293429Mikä on suurin luonne- eroavuus sinussa
Ja kaivatussasi? Vaikuttaako se huonoon vai hyvään suuntaan siinä, että teistä voisi tulla jotain?1921931Kenen haluaisit voittavan Amazing Racen: Tuomas ja Esko, Millu ja Karoliina vai Maria ja Vilma?
Amazing Race Suomi huipentuu lauantaina finaaliin. Jäljellä on kolme paria ja tiedossa on tehtäviä, jotka järkyttävät os171628- 601363
Gallup: Katsotko Salkkareita tai oletko katsonut?
Salatut elämät on suomalaisten suosikkisarja vuosikymmenestä toiseen. Salkkareiden parissa viettää aikaa sukupolvet laps181356Elämäni biisi starttaa uudessa muodossa - Voi olla pettymys faneille!
Elämäni biisi ja juontaja Katja Ståhl ovat suomalaisten suosikkeja. Lauantai-iltaisin ohjelma on vetänyt tv-katsojat arv11260Amazing Race Tomas rehellisenä Esko-appiukon, 63, tilasta: "Sairastelut ja..."
Tomas Grekov ja Esko Rotola-Pukkila ovat mukana Amazing Race Suomi -kisassa. Ja nyt vuorossa on finaali. Hankaluuksia m11237