Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB6: Tiedostonkäsittely juttu _VB_

Sivun loppuun

Gevil [15.10.2002 17:52:00]

#

Eli olis yksi ihmetyksen aihe.

Kun Visual Basicissa teen ohjelman ja pistän siihen nää:

Open App.Path & "\" & lähdetiedosto For Input As #1
  Do Until EOF(1)
  Input #1, tieto
jne.

Lähdetiedostossa on tietoa seuraavasti:

xxxxxxxxxxxxx
xxxxxxxxxxxxx

xxxxxxxxxxxxx
xxxxxxxxxxxxx

xxxxxxxxxxxxx
xxxxxx,xxxxxx

Huomasin tuossa että vb tulkitsee tuon alimman rivin kahdeksi eri riviksi.. siis pilkku tuntuu iskevän rivinvaihdon siihen.. Johtuuko tämä rivinvaihto siis pilkusta vai mistä? Miten saisin ujutettua pilkkuja lähdetiedostoon ilman että tulee rivinvaihtoa? Ja onko mahdollisesti muitakin merkkejä jotka tämän tekevät ja miten tästä pääsee eroon..

Gevil [15.10.2002 17:56:38]

#

"Unlike the Input # statement, the Input function returns all of the characters it reads, including commas, carriage returns, linefeeds, quotation marks, and leading spaces."

No perkele :) olisihan tuo pitänyt huomata.. Mut miten menee sen syntaksi..?

Gevil [15.10.2002 18:00:59]

#

Eiku hö nojoo tai siis tuota hä? Siis hmm.. Toi example näyttää miten toi funktio lukee 1 kirjaimen siitä.. mut miten sen sais toimii ihan normaalisti.. plääh.. minä olen ihan sekasin nyt..

Antti Laaksonen [15.10.2002 18:36:38]

#

Laita Inputin tilalle Line Input, sitten pilkkukin tulee mukaan kun rivejä luetaan.

Gevil [15.10.2002 19:51:06]

#

Tämän ongelman saan kierrettyä hiukan kikkailemalla, mutta.

Ongelma:
Line Input näyttää ottavan tyhjätkin rivit. Input ottaa tyhjät rivit "" kun taas Line Input ottaa sen tyyliin " ", eli siis Line Input ottaa tyhjän rivin yhtenä tyhjänä merkkinä. Tämä sekoittaa minun ohjelmassa yhden järjestelmän, mutta kuten sanottua saan sen varmaankin kierrettyä. Kuitenkin olisi kiva tietää onko mahdollista, että Line Input ottaisikin tyhjät rivit "" eikä " " ?

trinit [15.10.2002 20:31:39]

#

Käytä Trim() funktiota. Trimmi poistaa merkkijonon alusta ja lopusta tyhjät merkit.

Open App.Path & "\" & lähdetiedosto For Input As #1
  Do Until EOF(1)
  Line Input #1, Trim(tieto)
Loop

Gevil [15.10.2002 20:51:27]

#

Trinit, musta tuntuu et se ei ihan noin toimi.. Noin vois toimia?

Line Input #1, tieto
tieto = Trim(tieto)

Joo ja kiitokset suuret vaan Antti L. ja trinit.

trinit [16.10.2002 11:19:47]

#

lainaus:

Trinit, musta tuntuu et se ei ihan noin toimi.. Noin vois toimia?

Joo, niin olikin. Oli tullut ajatuskatkos näköjään tuota kirjoittaessani :)


Sivun alkuun

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta