Ciao a tutti, vi chiedo gentilmente se potete aiutarmi a migrare questo piccolo programma VB in C, sono alle prime armi e non riesco
proprio a partire, grazie!



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