Problème d'équivalence VB6 - VB.NETRésolu

Question

Bonjour, 
Existe t'il une fonction sous VB.NET similaire &#224; la fonction "Loc(filenumber)" de VB6 qui permet d'indiquer la position de lecture/&#233;criture courante dans un fichier ouvert? 
Merci pour votre aide

cs_frop01 · Accepted Answer

ah voila j'ai pas vu l'ouverture du fichier en mode bianire (OpenMode.Binary)

ptit expliquation :

Fichier binaire:

Dans les fichiers binaires on travaille sur les octets.

La syntaxe est la même que pour les fichiers Random, sauf qu'on travaille sur la position d'un octet et non sur un numéro d'enregistrement.

Pour ouvrir un fichier binaire:

FileOpen(FileNumber, FileName, OpenMode.Binary)
 

FileGet et FilePut permettent de lire ou d'écrire des octets .

FileOpen(iFr, ReadString, OpenMode.Binary)
MyString = New String(" "c, 15)        'Créer une chaîne de 15 espaces
FileGet(iFr, MyString)                 ' Lire 15 caractères dans MyString
FileClose(iFr)
MsgBox(MyString)

Le fait de créer une variable de 15 caractères et de l'utiliser dans FileGet permet de lire 15 caractères.

cs_frop01 · Answer

normalement ca existe en VB.NET

Public Function Loc(ByVal FileNumber As Integer) As Long


Extrait de MSDN .NET 2003

Exemple
Cet exemple utilise la fonction Loc pour retourner la position de lecture/écriture actuelle dans un fichier ouvert. Nous supposons que MYFILE est un fichier texte comportant quelques lignes de données exemple.

Dim location As Long
Dim oneLine As String
Dim oneChar As Char
FileOpen(1, "C:\MYFILE.TXT", OpenMode.Binary)
While location < EOF(1)
   Input(1, oneChar)
   location = Loc(1)
   Debug.WriteLine(location & ControlChars.CrLf)
End While
FileClose(1)
Notes du développeur sur Smart Device
Cette fonction n'est pas prise en charge.

Prérequis
Espace de noms : Microsoft.VisualBasic

Module : FileSystem

Assembly : Microsoft Visual Basic .NET Runtime (dans Microsoft.VisualBasic.dll)

cyrcroix · Answer

Ok, merci, je vais tenter cela tout de suite...

cyrcroix · Answer

Le probl&#232;me c'est que je dois ouvrir un fichier (executable) qui est d&#233;j&#224; en utilisation, il ne veut pas s'ouvrir du coup...!

cs_frop01 · Answer

peut-etre c'est le mode d'ouverture du fichier qui pose problème
essai une autre constante pour ouvrir en mode read-only

cyrcroix · Answer

Ok, c'est bon, mon exe s'ouvre...
Par contre la ligne While location < EOF(1) me dit que location est < &#224; EOF..
Pourquoi cela?

cs_frop01 · Answer

je pense qu'il faut tester sur  Loc(1)<EOF(1)1

cyrcroix · Answer

J'ai mis : While EOF(1) = 
False et cela fonctionne...

cs_frop01 · Answer

bien vu ;)

n'oublie pas de cloturer le problème par une reponse accepter

cyrcroix · Answer

Tout cela fonctionne.. mais apr&#232;s quelques tours dans la boucle, la ligne :  Input(1, oneChar) plante (elle g&#233;n&#232;re une exception).
Voici le message de l'exception : " L'entr&#233;e d&#233;passe la fin du fichier".
Voici  mon code : 

            



Dim num = FreeFile()


FileOpen(num, NomFichier, OpenMode.Binary, OpenAccess.Read)


longueur_fich = LOF(num_fich)



Do 
While position + 512 < longueur_fich


Input(num_fich, Chaine)


position = Loc(num_fich)



For j = 1 
To Len(Chaine) 
Step 2


check = (check + (j * 1 + Asc(Mid$(Chaine, j, 1)))) 



Next j


VisuVersion.Text = "en cours ... " & Format$(Loc(num_fich) / longueur_fich, "0 %")



Loop

cs_frop01 · Answer

tout d'abord il déclarer tes variable comme (position , j et check) ensuite les initialisé à 0 si c'est nécessaire

pourquoi tu as enlever tu as mis 

Do While position + 512 < longueur_fich

au lieu de 

While not EOF(1)

cyrcroix · Answer

Elles sont bien sur d&#233;clar&#233;es et initialis&#233;es...
C'est vrai, lol j'ai pas fais gaffe... mais le probl&#232;me reste le m&#234;me cela fonctionnait aussi.
Ma boucle fonctionne correctement mais plante au bout de quelques tours...
Merci de m'aider, c'est sympa

cs_frop01 · Answer

t'es entrain de lire dans le fichier ou écrire ??

(input avec OpenAccess.Read c'est contradictoire non ?)

cs_frop01 · Answer

pardon c'est moi qui pète un plomb

cs_frop01 · Answer

Est-ce que ton fichier est traité par ligne ??

Voici un exemple pour lire chaque ligne d'un fichier texte.

    Dim Line As String
    FileOpen(1, "MonFichier.txt", OpenMode.Input) ' Ouvre en lecture.
    While Not EOF(1) ' Boucler jusqu'à la fin du fichier

        Line = LineInput(1) ' Lire chaque ligne
        Debug.WriteLine(Line) ' Afficher chaque ligne sur la console.
         

    End While
    FileClose(1) ' Fermer.

cyrcroix · Answer

C'est parfait...!!

Problème d'équivalence VB6 -> VB.NET

16 réponses

Discussions similaires