دوستان عزیز این کد را برای من ترجمه کنید از این کد آیا برای ذخیره رکورد متنی می توان استفاده کرد؟
Public Type BRF
name As String
FNAME As String
CLASS As String
OMU As String
End Type
Public BAF(10) As BRF
Dim S As String
Dim S1 As String
Dim BTL1 As Integer
Dim BTL(300) As String
Dim STL(300) As String
Dim I As Integer
Dim L As Integer
Private Sub Command1_Click()
Close
Open "C:\TEL1.TXT" For Output As #3
Open "C:\TEL1.TXT" For Input As #1
For I = 0 To 300
STL(I) = BAF(I).Class
BAF(I).Class = "OK"
Next
Do While Not EOF(1)
Line Input #1, S
If InStr(1, S, "STUY1") Then
DAT = Mid(S, 37, 10)
TIM = Mid(S, 49, 10)
End If
If InStr(1, S, "BML1") Then
BTL1 = Val(Mid(S, 5, 4))
BAF(BTL1).Class = Mid(S, 71, 2)
Line Input #1, S
Line Input #1, S
BAF(BTL1).name = Mid(S, 2, 15)
Line Input #1, S
BAF(BTL1).ET = Trim(Mid(S, 43, 3))
End If
Loop
For I = 0 To 300
If STL(I) <> BAF(I).Class And BAF(I).Class = "NO" Then
BAF(I).OMU_T = Mid(S, 1, 10) & " " & Mid(S, 12, 11)
Print #3, BAF(I).name, BAF(I).Class, BAF(I).OMU_T
ElseIf STL(I) = BAF(I).Class And BAF(I).Class <> "NO" Then
BAF(I).OMU_T = Mid(Now(), 1, 10) & " " & Mid(Now(), 12, 11)
Print #3, BAF(I).name, BAF(I).Class
End If
Next
End Sub
پاسخ با نقل قول