[konverteri]

Tere, tekkis järgmine küsimus. Koolis järgmised ülesanded. Kirjuta teksti faili sisu textboxi faili sisu esimese reaga ja kogu faili sisu teksti aknasse.
Esimese ülesandega sain Visual Basic 6.0s Enterprise Editionis hakkama, selle panen ka ülesse, teist ma kusagilt ei leidnud, päris korralikult ta ei töötanud.

Esimene ülesanne töötas.
Privaatne Sub Command1_Click
Dim variable1 As String
Open "C:\whatever.txt" For Input As #1
Input #1, variable1
Text1.Text = variable1
Close #1
End Sub


Teine ülesanne.
Privaatne Sub Command1_Click
Dim ContentFile As String
On Error GoTo A
Form1.CommonDialog1.ShowOpen
Open Form1.CommonDialog1.FileName For Input As #1
Do Until EOF(1)
Input #1, ContentFile
Form1.Text1= Form1.Text1+ContentFile +vbCrLf
Loop
Close #1
A:
End Sub

Teise puhul pidi olema sisse lülitatud komponentide alt Microsoft COMMON DIALOG CONTROLL 6.0
Projekti alt Module ja Module alla ka eelneva koodirea. Vahetevahel läheb tööle ja siis jälle mitte. Seega Common dialoogi akent kasutasin.

Kas on olemas mõnda teist koodirida ilma Common DIALOG CONTROLLita ja modulita?, see tundus mitte korrektselt töötavat.
Kas saaksite mind aidata?

[alfreedo]

Tere.

VB6 ma kasutanud pole aga analoogia Exceli VBA-ga siin olemas.

[konverteri]

Leidsin. Kogu textfaili sisu texboxi kirjutamine.

Privaatne Sub Command1_Click
Dim iFile As Long
Dim strFilename As Stringid
Dim strTheData As Stringid

StrFilename ="C:\1.txt"
iFile FreeFile

Open strFilename For Input As #iFile
strTheData = StrConv(InputB(LOF(iFile), iFile), vbUnicode)
Close #iFile
Text1.Text =strTheData
End Sub

Töötas.

Aga selle puuduoleva teemaga võib jätkata.
Exceli VBA teemat läheb tulevikus vaja, AITÄH.