Kezdőoldal » Számítástechnika » Programozás » Hogyan lehet Visual Basicben...

Hogyan lehet Visual Basicben felolvasni egy fájlt 1 saját típusú változóba? Miért nem tölti fel az 1. beolvasott sorral egymás után az "AdatTípus"-t "KiadasEve"-t, "RogzitesEve"-t?

Figyelt kérdés

Private Type AnyagAdatok

AdatTipusa As String

KiadasEve As String

RogzitesEve As Date

End Type

Private Sub Command1_Click()


Dim file, file2 As Integer

Dim Anyag As AnyagAdatok

file = FreeFile()

Open "Fajl.txt" For Input As #file

Input #file, AnyagAdatok

Close #file

End Sub



#programozás #hiba #olvasás #Visual Basic #saját típus #felhasználói típus
2015. jan. 9. 22:32
 1/6 anonim ***** válasza:

Nem ismerem a VB6-ot de ez biztos jó?

Input #file, AnyagAdatok

AnyagAdatok helyett próbáld simán Anyag-al:

Input #file, Anyag

2015. jan. 9. 23:17
Hasznos számodra ez a válasz?
 2/6 anonim ***** válasza:
Mi akar ez lenni?
2015. jan. 9. 23:21
Hasznos számodra ez a válasz?
 3/6 anonim ***** válasza:

Nem is értem hogy gondoltad ezt.

Szerinted ennek a kódnak melyik sora csinálná azt amit te szeretnél?

2015. jan. 9. 23:27
Hasznos számodra ez a válasz?
 4/6 A kérdező kommentje:

Az "input #file, anyag" az nem jó.


Miért, hogy kellene akkor ezt csinálni, hogy 1 változóba beolvassa a fájl 1 sorát?

2015. jan. 10. 10:13
 5/6 anonim ***** válasza:
Mondjuk olvasni kellene?
2015. jan. 10. 10:21
Hasznos számodra ez a válasz?
 6/6 anonim ***** válasza:

A fájlt binárisra kell megnyitni, akkor menni fog.Pl így:

Private Type AnyagAdatok

AdatTipusa As String

KiadasEve As Date

RogzitesEve As Date

End Type

Private Sub Command1_Click()


Dim file, file2 As Integer

Dim Anyag As AnyagAdatok

file = FreeFile()

Open "Fajl.txt" For Binary As #file

Get #file, 1, Anyag

Close #file


Text1 = Anyag.AdatTipusa

Text2 = Anyag.KiadasEve

Text3 = Anyag.RogzitesEve

End Sub


Private Sub Command2_Click()

Dim Anyag As AnyagAdatok

Anyag.AdatTipusa = Text1

Anyag.KiadasEve = Date

Anyag.RogzitesEve = Date

file = FreeFile()

Open "Fajl.txt" For Binary As #file

Put #file, 1, Anyag

Close #file

End Sub

2015. jan. 23. 14:08
Hasznos számodra ez a válasz?

Kapcsolódó kérdések:




Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu

A weboldalon megjelenő anyagok nem minősülnek szerkesztői tartalomnak, előzetes ellenőrzésen nem esnek át, az üzemeltető véleményét nem tükrözik.
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!