Option Strict On ET OpenMode.Binary

Bonjour,

Voila un exemple qui fonctionne très bien:ccool:
si je met Option Strict Off

Code:

---

1 2 3 4 5

Dim TableauString(100) As String Dim FF As Integer = FreeFile FileOpen(FF, "NomFichier", OpenMode.Binary, OpenAccess.Read) FileGet(FF, TableauString) FileClose(FF)

---

j'ai bien les bonnes valeurs dans TableauString()

Quelle est le typage pour Option Strict On :arf:
ou un code équivalent

ce code n'est pas du vb.net (ou alors du code de compatibilité, auquel cas ne pas l'utiliser !)

Ca c'est du code VB6... mieux vaut le convertir en VB.NET. Ca doit donner quelque chose comme ça :

Code:

---

Dim TableauString As String() = File.ReadAllLines("NomDuFichier")

---

bonjour,

Merci d'essayer de me dépanner

c'est du vb.net mais compatibilité

Voila l'equivalent de VB6

Code:

---

1 2 3 4

FF = FreeFile Open NomDuFichier For Binary Access Read As FF Get FF, , TableauString Close FF

---

J'ai déjà essayé File.ReadAllLines("NomDuFichier")
mais mon TableauString = Nothing

Il faut savoir qu'en VB6
un Put FF, , TableauString n'enregistre pas les lignes avec chr(13)+Chr(10)
mais avec un caractère NULL

Je débute en .net et j'ai le réflexe du code VB6:oops:

Citation:

---

Envoyé par Tropic

c'est du vb.net mais compatibilité

---

Oui, c'est bien ce que j'avais compris... Mais il vaut mieux laisser tomber cette couche de compatibilité, ça t'apportera que des problèmes. Autant apprendre tout de suite à utiliser les classes .NET

Citation:

---

Envoyé par Tropic

un Put FF, , TableauString n'enregistre pas les lignes avec chr(13)+Chr(10)
mais avec un caractère NULL

---

aie :aie:
Ca c'est moche...
C'est un fichier qui existe déjà et que tu essaies de relire ? ou un fichier écrit par ton programme ? dans le 2e cas, je te suggère d'utiliser plutôt File.WriteAllLines pour l'écrire.

De toutes façons, c'est une drôle d'idée d'écrire du texte dans un fichier en mode binaire :?

C'est un fichier qui existe déjà et que j' essaies de relire!
Je n'arrive pas à trouver la bonne méthode.

au lieu de faire un readalllines, il est possible de faire readalltext, puis de faire un split sur le caractère null, tu auras un tableau de string avec les lignes quand meme
(ou sinon un readallbytes puis un split ou repalce de chr(0) par vbcrlf puis un split pour avoir les lignes)

par contre en .net on utilise plus trop les tableaux, les collections sont beaucoup plus pratique !

Bon, j'ai bricolé une méthode
le temps de gagner un peu d'expérience en .NET

Voila ce que je fais

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Structure _TableauString <VBFixedArray(100)> _ Dim TableauString() As String End Structure   Dim TableauString As New _TableauString   Dim FF As Integer = FreeFile FileOpen(FF, NomFichier, OpenMode.Binary, OpenAccess.Read) Dim temp As ValueType = CType(TableauString, ValueType) FileGet(FF, temp) TableauString = CType(temp, _TableauString) FileClose(FF)

---

Et maintenant je peux activer l' Option Strict On
et mon TableauString() ont bien les données

ça me plait pas, mais si quelqu'un sait comment
faire autrement

y a des dizaines de méthodes dont celles que j'ai cité
parce que là en effet ton code il donne un peu envie de pleurer