Bonjour à tous,
J'ai un programme en VB6 que j'essaye de traduire. En effet, je ne fais que du C (à un petit niveau)
et le VB 6 m'était complètement inconnu. 
Je suis donc allée sur pas mal de tutoriaux pour essayer de comprendre comment ca marche.
Je vous poste donc le programme avec mes commentaires (sur ce que j'ai compris ou cru comprendre...)
Le but de ce programme est de prendre un fichier à proiri biniare et de le convertir sous un format exploitable comme excel.
Si on devait mettre ce fichier dans un tableau celui-ci aurait 64 colonnes et un nombre de lignes inconnues.
Mon but à moi serait de le faire sous C mais ca c'est autre chose...
Merci d'avance!
Option Explicit
Dimm WithEvents xlobj As Excel.Application
Private Sub Command1_Click()
Dim i, j, k, x, l As Integer
X=0
Dim nbProj As Integer
DimnumRecords
numRecords = -1
Dim bytbuffer() As Byte //Creation d'un tableau dont les cellules sont de taille 1 octet
Dim sinArray() As single //SinArray est un entier
Dim convertedArray() As single //convertedArray est un entier
Dim nomFichier, nomFichier2
Dim ExcelAppli As object
Dim NewXlFile As Object
Set ExcelAppli = CreateObject("Excel.Application" )
set NewXlFile = ExcelAppli.workbooks.Add
Open "c:\TEMP\converted.sin" For Binary As #1 //Ouvrir le fichier converted.sin en mode binaire
Open "c:\TEMP\aconvertir.sin" For Binary As #2 //Ouvrir le fichier aconvertir.sin en mode binaire
Do until EOF(2) // Faire jusqu'à la fin du fichier2
numRecords = numRecords + 1
reDim Preserve sinArray(numRecords) // ?
ReDim Preserve convertedArray(numRecords) //?
Redim bytbuffer((numRecords + 1) * 4) //J'imagine qu'on remplit le tableau bytbuffer
//mais de quelle facon?
Get #2, , sinArray(numRecords) //?
For l = 0 To 3
Get #2, numRecords * 4 +l +1, bytbuffer // ?
Next l
For j = 0 To 3
Put#1, numRecords * 4 + 1, bytbuffer(3-j) //?
Next j
Get #1, numRecords * 4 + 1, convertedArray(numRecords) //?
Loop
ReDim table(numRecords, 64) //Nouvelle dimension pour table
Close#2
Close#1
k=0
Do while k< numRecords -1
For i=0 To numRecords /64 -1
For j=0 To 63
Table(i,j) = convertedArray(k)
NewXLFile1.Sheets("Feuil1" ).Cells(i +1, j + 1).Value = Table(i,j) //On remplit le fichier excel avec le tableau table
k= k +1
Next j
Next i
Loop
MsgBox ("The conversion is finished !" )
nomFichier = "c:\TEMP\test"
NewXLFile1.SaveAs Left(nomFichier, Len(nomFichier)) & "xls" //Enregistrement fichier xls
NewXLFile1.Close False
ExcelAppli.Quit
Set NewXlFile1 = Nothing
Set ExcelAppli = Nothing
End sub
