dim as

Question

Bonjour a tous,j'ai ceci en vb :
Private Type untype
    i as long
    j as  int 
   k as int
l as string
.....
End Type
.....

Public Function Get(Name As String) As Integer
Dim End  As untype
....
end function

je voudrait traduir en c++ ca donnerait quoi svp?

cs_AlexMAN · Answer

typedef struct {
int i;
int j;
int k;
char *string;
} untype;

int Get(char *name) {
  untype end;

}

voila ++

alhexman

niketou · Answer

merci alex je l'essais

niketou · Answer

ca marche mais ca me bloque a l'ouverture du fichier en binaire en vb on fait : 
Get #FileNum, LOF(FileNum)- Len(end) + 1, end '<--end c'est le "untype end"

cs_AlexMAN · Answer

Mais tu fais koi la ? Tu melange C et VB ? je comprend pas trop, poste ton code stp

niketou · Answer

Excuses j'essais de traduir un code vb en c++
le vb:

Private Type untype
i as long
j as int 
k as int
l as string
.....
End Type

Public Function Get(Name As String) As Integer
Dim End As untype
 FileNum = FreeFile
Open  FileName For Binary Access Read As #FileNum
    FileLenght = LOF(FileNum)
 Get #FileNum, FileLenght - Len(End) + 1, End
 ....
end function

cs_AlexMAN · Answer

int Get(char *)
{
   untype end;
   FILE *file;
   char buffer[128]; //la c a toi de voir la taille du buffer   

  file = fopen(FileName, "r");
  fread(buffer, 1, 128, file);
  printf("%128s
", buffer);

  return 0;
}

Voila, si tu veux utiliser les API c CreateFile, ReadFile, si tu veux, jte reposterai un code, pas le temps la...Jespere ke ca t'aidera...

VOila ++

Alhexman

niketou · Answer

en vb: Get #FileNum, FileLenght - Len(End) + 1, EnD
je crois que ca lis en binaire le fichier FileNum a un point precis du fichier(FileLenght - Len(End) + 1) et place dans EnD
non?
merci.

Dim as

7 réponses

Votre réponse

Discussions similaires