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
302
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
Sanna Marin kysyi hämmästyneenä: Onko Suomessa jäänmurtajia?
Nettilehden toimittaja kysyi Sanna Marinilta suoraan, että sovittiinko nuo jäänmurtajien kaupat jo 2019, jolloin Marin k1094282- 1493673
SDP haluaa 40 000 nettomaahanmuuttajaa
SDP:n Suunnanmuutos-vaihtoehtobudjetissa, käy ilmi, että demarit itse asiassa vaativat räjähdysmäistä ”työperäisen” maah883435Mikä tuota vasemmistolaisista jankkaavaa vaivaa?
Pahasti on ihon alle, siis korvien väliin, päässeet kummittelemaan. Ei ole terveen ihmisen merkki jankata yhdestä asia392829- 1291730
Nyt meni lopulliset lämmöt.
Alan käyttäytymään yhtä kylmästi miehiä kohtaan kuin mua kohtaan on käyttäydytty ja vain käytetty viimeiset pari vuotta371558Orpo loukkaantui fasismiin viittaavasta sanavalinnasta
Mutta miksi loukkaantui? Orpohan on tehnyt yhteistyötä fasistien kanssa jo vuonna 2019, siis jo neljä vuotta ennen loukk141201Sulla on avaimet ja keinot
Jos haluat jatkaa tutustumista. Itse olen niin jäässä etten pysty tekemään enää mitään. Pidempi keppi johon on helpompi191184Meitä ei tule
Koska periaatteemme ovat rakkautta vahvempia. Tämä on siis koettelemus, jonka tarkoitus on vahvistaa meitä yksilöinä 😌221144Onko erityinen paikka jossa haluaisit nyt olla
Onko joku spesiaali lempipaikka missä mieluiten olisit?421140