Discussion :

[cd090580]

Bonjour,

J'ai ce bout de code que je n'arrive pas à convertir de mon appli VB6 vers VB.Net.

Code VB6

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Type strFich
  Nom as string *255
  Prefixe as string * 7
  NbFichiers as Integer
End Type
 
Dim StructureEnregistrement as strFich
 
Open Fichier for Random as #1 Len = Len(StructureEnregistrement)
Get #1,1,StructureEnregistrement
Close #1

Le problème vient surtout des chaines à longueur fixe qui n'existent plus en VB.Net. Y a-t'il un moyen propre de convertir convertir ce code afin de continuer a pouvoir lire mes fichiers avec VB.Net ?

Merci.

[Geo2A]

Bonjour

Pour lire les fichiers va voir la classe system.IO.streamreader
Ou la classe binaryreader.

[TotalRecall]

Ne connaissant pas VB6, si je comprend bien ce bout de code vient lire à chaque Get une portion de fichier dont la longueur est déterminée par la somme de celle des champs de ta structure d'accueil, et vient placer dans chacun d'eux en fonction de leur longueur une décomposition de la donnée lue ?

Effectivement pour moi il n'y a pas d'équivalent natif. Si le but est de lire des chaînes de longueur fixe, je pense que le plus simple est de passer par un StreamReader, de passer par une méthode telle que Read ou ReadBlock (à vérifier), et de décomposer la chaîne retournée (chaine.Substring(...)) pour remplir ta structure.

[Geo2A]

Bonjour,

Ne connaissant pas VB6, si je comprend bien ce bout de code vient lire à chaque Get une portion de fichier dont la longueur est déterminée par la somme de celle des champs de ta structure d'accueil, et vient placer dans chacun d'eux en fonction de leur longueur une décomposition de la donnée lue ?

T'as tout bon!

AMHA le mieux et de passer par un binaryreader de façon à obtenir un caractère à chaque fois ou de lire directement un tableau de caractères dont la taille correspond à la longueur de chaîne attendue.