Ciao a tutti,
sto studiando C perchè ho deciso che VB e' ormai un linguaggio morto
e dopo aver letto il 50% del manuale mi ritrovo a voler migrare questo
piccolo programma VB in C, ovviamente ho qualche difficolta', potreste gentilmente aiutarmi? Vi sarei eternamente grato..
Sub Main()
Dim cont As Long
Dim cont2 As Long
Dim numpol As Long
Dim numpolold As Long
Dim currfrom As Long
Dim currfromold As Long
Dim currto As Long
Dim currtoold As Long
Dim validflag As Integer
Dim validflagold As Integer
Open "e:\ingsoft\rstr\test\file1.txt" For Input As #1
Open "e:\ingsoft\rstr\test\file2.txt" For Output As #2
Print #2, " chdrnum", " currfrom", " currto", " validflag", " conteggio"
Print #2, "------------------------------------------------------------------"
cont = 0
cont2 = 0
Do Until EOF(1)
Line Input #1, stringafile
cont = cont + 1
If numpolold = numpol Then
If currto = 99999999 And validflag = 1 Then
If currfrom <> currtoold Then
cont2 = cont2 + 1
Print #2, numpolold, currfromold, currtoold, validflagold
Print #2, numpol, currfrom, currto, validflag, cont2
Print #2, "------------------------------------------------------------------"
End If
End If
End If
'
' old record
'
numpolold = numpol
currfromold = currfrom
currtoold = currto
validflagold = validflag
'
' new record
'
numpol = Mid(stringafile, 1, 8)
currfrom = Mid(stringafile, 12, 8)
currto = Mid(stringafile, 23, 8)
validflag = Mid(stringafile, 34, 1)
Loop
Close #1
Close #2
End Sub