Sub EkaTxt()
Dim RIVI As String
Open "c:\OMA\omat.txt" For Input As #1
Do Until (EOF(1) = True)
Input #1, RIVI
MsgBox RIVI
Loop
End Sub
Auttakaa miestä mäessä! pitäs saada tulostumaa allekkain yhteen msgboxiin
apua!
wrd
3
337
Vastaukset
- dlp
Sub EkaTxt()
Dim RIVI As String
Dim TEKSTI As String
Open "c:\OMA\omat.txt" For Input As #1
Do Until (EOF(1) = True)
Input #1, RIVI
TEKSTI=TEKSTI RIVI chr(13) chr(10)
Loop
MsgBox RIVI
End Sub
En ole kokeillut toimiiko, kun ei ole visbaa.- sivullinen...
Loop
MsgBox RIVI
End Sub
Tuossa taitaa olla pikkuvirhe... Jos laitat "RIVI"n tilalle "TEKSTI", niin saattaa toimia vähän paremmin...
En kyllä itsekään kokeillut, mutta koodi vaikuttaa melko hyvältä... Vaikken nyt mikään guru olekaan..
- -jk-
Dim Msg As String
Open "C:\Omat\Oma.Txt" For Binary As #1
Msg = Input$(LOF(1), #1)
Close
MsgBox Msg
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Medvedev: Suomi tuhoutuu ydinsodassa ensimmäisenä
Venäjän ydinaseilla on lyhyin matka Suomeen, joten ydinsodassa Suomi tuhoutuu heti sodan alkuminuuteilla, muilla mailla6082186- 1081088
Hotellille löytyi ostaja....
Tämän päivän Kainuun Sanomissa oli uutinen, että pesänhoitajan mukaan Hotelli Kainuu myydään ensiviikolla. Hieno homma,231055Saana airola ja. muusikko spekulaatiota
Saara airolan kirja muusikko mies. Oisko redrama tai lauri tähkä? Saana oli 13 v vuonna 2014 Tekoäly sanoo : tähkä Julki4917Onko se loukkaavaa
Kun joka kerta tuijotan sun peppua. En mahda sille mitään, että se vangitsee katseeni. Pohdin vain että ei minusta ole k101855- 85823
Onko kaivattusi seinäruusu?
Kun hän saapuu paikalle, huomaako kukaan, vai kääntyvätkö päät? Onko se hyvä vai huono juttu? Oletko sinä huomattu vai50759Jos saisit palata takaisin johonkin vuoteen
Mikä vuosi se olisi? Ja mitä siinä hetkessä tapahtuisi?89752- 63725
- 65563