Migration d'un Projet VBA vers VB.Net (visual studio 2017) FILEOPEN et GET

Bonjour à tous,

J’ai un projet VBA (Excel) que je suis en train de migrer sur Visual studio (Excel n'était pour moi qu'un "support" de programmation VBA)
Je ne suis pas du tout "programmeur et je fais surtout ça pour « m'amuser à coder des algorithmes » !
Si Le copier coller de VBA ver VB fonctionne en grande partie, il y a des spécificités qui ne passe pas !
J’ai beau avoir google comme ami…mais ça ne suffit pas toujours… et j’espère bien trouver d’autres amis ici… !!
A l’origine (en VBA,) j’ai cette partie de code que j’avais trouvé sur un autre forum qui me sert à ouvrir un fichier pour avoir un accés en binaire (pour remplacer les Octets existant par d’autres)
Mon fichier de base est « strFileName » et mon fichier recepteur est « FileName »
Pour l’ensemble du code, j’ai pu trouver les « équivalences », il n’y a que pour la ligne
« Get #intFileNumber, , strBuffer » ou sa bloque…!! Il s’emblerait que sur VBA, cette ligne réserve de la place en mémoire…mais je n’en suis pas sûr.. et surtout, je ne sais pas comment trouver un équivalent sur VB (l’instruction get n’existerait plus.. ??)
Merci pour votre aide !

Code:

---

1 2 3 4 5 6 7 8

strFileName = TextBox10.Value intFileNumber = FreeFile Open strFileName For Binary Access Read Shared As #intFileNumber lngFileSize = LOF(intFileNumber) 'How large is the File in Bytes? strBuffer = Space$(lngFileSize) 'Set Buffer Size to File Length Get #intFileNumber, , strBuffer 'Grab a Chunk of Data from the File Close #intFileNumber Open FileName For Output As #1

---

En VB.Net, ce serait plutôt un truc de ce genre (de mémoire):

Code:

---

1 2 3 4 5 6

strFileName = TextBox10.Value Using fileStm As System.IO.Stream = File.OpenRead(strFileName) Using txtRd As System.IO.TextReader = new System.IO.StreamReader(fileStm) strBuffer = txtRd.ReadToEnd() End Using End Using

---

Ou dans ce cas précis, beaucoup plus simple:

Code:

---

1 2	strFileName = TextBox10.Value strBuffer = System.IO.File.ReadAllText(strFileName)

---

Bonjour,
Et merci pour votre aide !
J'ai utilisé votre 2eme solution (la plus simple) de la façon suivante:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

strFileName = TextBox2.Text intFileNumber = FreeFile() FileOpen(intFileNumber, strFileName, OpenMode.Binary, OpenAccess.Read, OpenShare.LockRead) lngFileSize = LOF(intFileNumber) 'How large is the File in Bytes? strBuffer = Space$(lngFileSize) 'Set Buffer Size to File Length FileClose (intFileNumber) strBuffer = System.IO.File.ReadAllText(strFileName) ' ' ' pour la suite, le code doit lire byte par byte le contenu du Buffer 'Display results on a Byte-by-Byte basic For lngCharNumber = 1 To lngFileSize strCharacter = Microsoft.VisualBasic.Mid(strBuffer, lngCharNumber, 1) codeInt = Asc(strCharacter) , ' '

---

Tout à l'air correct pour la lecture d'environ 80 à 90% du buffer, mais le programme s'arrete avec le msg d'erreur suivant : strCharacter="" (vide)...
Avec le code en VBA , tous se déroule normalement jusqu'au bout, et j'ai bien le résultat escompté...!
la seule difference que je vois serait la façon d'ouvrir la façon le fichier d'origine que j'ouvre avec code suivant:
" Open strFileName For Binary Access Read Shared As #intFileNumber"
voice d'ailleur la partie du code equivalente en VBA

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Dim strCharacter As String * 1 ' a priori le dim(I caractere) n'a pas d'effet sur le resultat.. ' 'Question: y a t'il une instruction equivalente en VB pour faire un Dim pour limiter une variable à "n" caractere(s) ?   strFileName = TextBox10.Value intFileNumber = FreeFile   Open strFileName For Binary Access Read Shared As #intFileNumber   lngFileSize = LOF(intFileNumber) 'How large is the File in Bytes? strBuffer = Space$(lngFileSize) 'Set Buffer Size to File Length Get #intFileNumber, , strBuffer 'Grab a Chunk of Data from the File " remplissage de strbuffer avec les donnée du fichier n°#intFileNumber ! Close #intFileNumber 'on ferme le fichier n°#intFileNumber Open FileName For Output As #1   ' ' 'Display results on a Byte-by-Byte basic For lngCharNumber = 1 To lngFileSize strCharacter = Mid(strBuffer, lngCharNumber, 1) codeInt = Asc(strCharacter) ' '

---

Voilà les 2 version VB et VBA.. la version VBA fonctionne parfaitement, même sans limiter strCharacter à 1 seul caractere

Si vous avez une piste pour m'aider je vous en remercie d'avance...!!

Bonjour,
Finalement, j'ai résolu mon Probleme de l'arret à 80% de la procédure
VB.net doit etre plus contraignant que VBA et j'ai du dimentionner strCharacter a 1 seul caractere (Dim strCharacter As String * 1 sur VBA)
pour info, sur VBA, pour mon cas, meme sans specifier "String*1 " la procedure tournait normalement...
Donc là, j'ai utilize l'instruction suivante : Dim strCharacter as Char ...
le code (résumé) est donc le suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim strCharacter as Char strFileName = TextBox2.Text intFileNumber = FreeFile() FileOpen(intFileNumber, strFileName, OpenMode.Binary, OpenAccess.Read, OpenShare.LockRead) lngFileSize = LOF(intFileNumber) 'How large is the File in Bytes? strBuffer = Space$(lngFileSize) 'Set Buffer Size to File Length FileClose (intFileNumber) strBuffer = System.IO.File.ReadAllText(strFileName) ' ' ' pour la suite, le code doit lire byte par byte le contenu du Buffer 'Display results on a Byte-by-Byte basic For lngCharNumber = 1 To lngFileSize strCharacter = Microsoft.VisualBasic.Mid(strBuffer, lngCharNumber, 1) codeInt = Asc(strCharacter) , ' '

---

le programme va bien jusqu'au bout, par contre le resultat attendu n'est pas le bon !
Quand je controle ce qui est transmit dans le "strBuffer",il se trouve que les caracteres (les code Hex) ont changés
le 1er caractere par exemple "FF" c'est transformé en "3F" ....?!

si quelqu'un à une idée ??

Bon, ça y est j'ai trouvé, j'ai pu entièrement migrer mon code VBA vers VB.net, j'ai résolu mon dernier pobleme en
utilisant l'instruction "FileSystem.ReadAllText" ,avec comme parametre "System.Text.Encoding.Default"
ce paramètre résout mon problème de "FF" transformé en "3F" problème d'encodage donc

Voici le code final (qui ne sert à rien mais qui fonctionne "pour l'exemple" ..)

Code:

---

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

Dim strCharacter as Char Dim strbuffer as String Dim codeInt as Integer FileName=TextBox1.Text 'path du fichier de destination strFileName = TextBox2.Text 'path du fichier source intFileNumber = FreeFile() strBuffer = My.Computer.FileSystem.ReadAllText(strFileName, System.Text.Encoding.Default) ' le fichier source est copié dans la variable strbuffer lngFileSize=len(strbuffer) longueur du fichier source FileOpen(intFileNumber, FileName, OpenMode.Output), ouverture du fichier de destination For lngCharNumber = 1 To lngFileSize strCharacter = Microsoft.VisualBasic.Mid(strBuffer, lngCharNumber, 1) codeInt = Asc(strCharacter) ' conversion (valeur) en decimal du caractère Print(intFileNumber, strCharacter) 'écriture caractère par caractère dans le nouveau fichier Next lngCharNumber FileClose(intFileNumber)

---

Voilà !!!

J'ai du mal à comprendre pourquoi tu as toujours un FileOpen...
Ton code, il sert à quoi? Convertir un fichier de texte hexadécimal vers un flux d'octets bruts?

Bonjour,

En fait tu as adapté ton code VBA en VB6 sauce .net mid par exemple n'existe pas en .net c'est substring en .net.

Si dans les références tu decoche la librairie visual basic ton code explose.

Tu veux convertir un script VBA en .net ou apprendre le VB.net?

Un de mes collègues qui pratique le c# (il serait qualifié de sénior émérite sur ce site), développait en VB6 pensant faire du VB.net!

Citation:

---

Envoyé par Médinoc

J'ai du mal à comprendre pourquoi tu as toujours un FileOpen...
Ton code, il sert à quoi? Convertir un fichier de texte hexadécimal vers un flux d'octets bruts?

---

Oui, en quelques sorte, il sert à ça !

Citation:

---

Envoyé par dysorthographie

Bonjour,

En fait tu as adapté ton code VBA en VB6 sauce .net mid par exemple n'existe pas en .net c'est substring en .net.

Si dans les références tu decoche la librairie visual basic ton code explose.

Tu veux convertir un script VBA en .net ou apprendre le VB.net?

Un de mes collègues qui pratique le c# (il serait qualifié de sénior émérite sur ce site), développait en VB6 pensant faire du VB.net!

---

Bonjour,
Peut-etre, oui, mais là n'est pas la question ! comme je l'ai expliqué dans mon 1er message, je veux migrer un code VBA vers VB (6 ou .net ) ou C qu'importe) , c'est pour me desolidariser d'Excel et donc avoir
quelque chose qui fonctionne (Presque) en autonome !
Et si en plus, cerise sur le gateaux, j'apprend autre chose, c'est tout benef !!
j'ai téléchargé la version Visual studio 2017 "community" pour cela ! et donc je découvre et me forme a VB.net aux travers des problemes que je rencontre..!!
Quand je dis "je me forme", je veux rester modeste , on va plutot dire "j'adapte" mes maigres connaissances à ce nouvel outil..!! et ma fois, ça marche pas trop mal ... ;)
Bien cordialement,

Pour convertir un fichier hexadécimal vers un fichier en octets bruts, je propose ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10

Public Sub ConvertHexToBytes(ByVal fileNameIn As String, ByVal fileNameOut As String) Dim strHex As String = System.IO.File.ReadAllText(fileNameIn) Dim bytes((strHex.Length \ 2) - 1) As Byte For i As Integer = 0 To bytes.Length - 1 Dim hexByte As String = strHex.Substring(i * 2, 2) Dim parsedByte As Byte = Byte.Parse(hexByte, Globalization.NumberStyles.HexNumber) bytes(i) = parsedByte Next System.IO.File.WriteAllBytes(fileNameOut, bytes) End Sub

---

Bien sûr on peut faire plus memory-efficient (sans charger tout le fichier une fois et demie en mémoire) mais à petite échelle c'est plus simple comme ça.

Bonsoir,
Et merci ! je vais tester, essayer de comprendre, et sans doute adapter votre code à mon cas particulier ;)