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?
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
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
válasza:Nem is értem hogy gondoltad ezt.
Szerinted ennek a kódnak melyik sora csinálná azt amit te szeretnél?
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?
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
Kapcsolódó kérdések:
Minden jog fenntartva © 2025, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!