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
296
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
Tukalaa kuumuutta
Tietäisitpä vaan kuinka kuumana olen käynyt viime päivät. Eikä johdu helteestä, vaan sinusta. Mitäköhän taikoja olet teh433017Ensi kesänä
Näin kesän viimeisenä minuutteina ajattelen sinua. Olisiko seuraava kesä "meidän" kesä? Tänä vuonna ei onnistuttu, mutta612961- 422367
- 311863
Okei, myönnetään,
Oisit sä saanut ottaa ne housutkin pois, mutta ehkä joskus jossain toisaalla. 😘251719Anne Kukkohovin karmeat velat ovat Suomessa.
Lähtikö se siksi pois Suomesta ? Et on noin kar? mean suuret velat naisella olemassa721684- 481586
Mihin hävisi
Mihin hävisi asiallinen keskustelu tositapahtumista, vai pitikö jonkin Hannulle kateellisen näyttää typeryytensä771275- 381252
- 791080