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
264
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
Mies kateissa Lapualla
Voi ei taas! Toivottavasti tällä on onnellinen loppu. https://poliisi.fi/-/mies-kateissa-lapualla1166070Poliisi tutkii murhaa Paltamossa
Poliisi tutkii Kainuussa sijaitsevassa Paltamon kunnassa epäiltyä henkirikosta, joka on tapahtunut viime viikon perjanta334167- 823372
Jos me voitais puhua
Jos me voitais puhua tästä, mä sanoisin, että se on vaan tunne ja se menee ohi. Sun ei tarvitse jännittää mua. Mä kyllä183006Jenna meni seksilakkoon
"Olen oppinut ja elän itse siinä uskossa, että feministiset arvot omaava mies on tosi marginaali. Todennäköisyys, että t2582100Joo nyt mä sen tajuan
Kaipaan sua, ei sitä mikään muuta ja olet oikea❤️ miksi tämän pitää olla niin vaikeaa?882014Jere, 23, ja Aliisa, 20, aloittavat aamunsa Subutexilla tai rauhoittavilla: "Vaikka mä käytän..."
Jere, 23, ja Aliisa, 20, ovat pariskunta, joka aloittaa aamunsa Subutexilla tai rauhoittavilla. Jere on ollut koko aikui441866- 1431805
Olipa ihana rakas
❤️🤗😚 Toivottavasti jatkat samalla linjalla ja höpsöttelykin on sallittua, kunhan ei oo loukkaavaa 😉 suloisia unia kau81706Vain yksi elämä
Jonka haluaisin jakaa sinun kanssasi. Universumi heitti noppaa ja teki huonon pilan, antoi minun tavata sinut ja rakastu881579