Discussion :

[allezlinter]

Bonsoir à tous
Je débute tout juste avec vbs, et j'arrive à faire quelque trucs sympa, mais je suis vite limité par le fait que je ne connais pas bien la syntaxe utilisée en virtual basic.
C'est pour ça que je voudrais vous demander de l'aide sur un script relativement simple que je souhaite créer.

Pour le moment, j'ai le début qui fonctionne bien, et j'arrive à un moment ou je veux ouvrir un document .csv (ça, ça va), et j'aimerais stocker le contenu (numérique) de l'une des cellules dans une variable.

Cependant, bien que je sache ré-écrire dans une cellule avec MyFile.SetCell + ce que je veux, je ne sais pas comment simplement extraire le contenu d'une cellule.

Je suis désolé si il y a déjà un sujet répondant à cette question, et si c'est le cas, merci de m'y rediriger.

D'avance, merci

[hackoofr]

un coup d’œil dans cette discussion ou bien vous pouvez utiliser la fonction Rechercher du Forum en tapant "csv" et si vous avez encore quelques difficultés à surmonter n'hésitez pas à poster votre code modifié

[allezlinter]

D'accord, merci beaucoup pour la redirection, cela m'a bien aidé pour ce que je voulais faire.
J'avais également une autre question.
La finalité de mon script est donc de lire la valeur dans mon csv, la stocker dans une variable (ça c'est OK), puis je voudrais la convertir en hexadécimal (ça aussi c'est OK, même s'il doit y avoir une manière plus propre que celle que j'ai utilisée) afin de l'insérer dans un fichier (hexadécimal)
Cependant, je n'arrive pas à correctement indiquer l'offset d'arrivée (celui ou je veux insérer ma valeur hexadécimale)
Est-ce plus facile de directement modifier la valeur dans le fichier d'origine, ou vaut-il mieux créer un nouveau fichier, ou je copierais touts les offsets que je ne désire pas changer, et insérer ensuite les nouveaux ?

Merci de votre aide

[hackoofr]

Pouvez-vous poster votre code afin de mieux voir les choses

[allezlinter]

Oui bien sur, c'est clair que sans le code, ça va être compliqué.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Const ForReading = 1, ForWriting = 2
Dim MyObject, MyObject2, MyFile
 Set MyObject = CreateObject("Scripting.FileSystemObject")
 set MyObject2 = CreateObject("ADODB.Stream")
 Set MyFile = CreateObject("WScript.Shell")
 
calc = "C:\OF\calc.csv"
hexfile = "C:\OF\OPT" 
 
 Set MyCalc = MyObject.OpenTextFile(calc, ForReading)
 Set MyHexFile = MyObject2.OpenBinaryFile(hexfile, ForWriting)
 
  MyCalc2 = MyCalc.ReadAll
  ID = split(MyCalc2,vbcrlf)
   for i = 1 to 17
  cell = split(ID(i),",")
  info = cell(6)
  infohex = Hex(info)
 
MsgBox infohex
 
MyHexFile.Write(infohex,???)
 
   if i = 17 then 
   exit for
   end if
Next
 
MyHexFile.SaveToFile("C:\OF\OPT2")
MyHexFile.Close()

Mon problème c'est les ???
En fait (bon je sais pas encore si le code fonctionne, je l'ai pas essayé vu que je n'arrive pas à le finir) je voudrais informer au script l'emplacement ou il doit insérer le "infohex" dans le fichier "OPT", et laisser les autres byts identiques.
Mais je n'arrive pas à lui dire correctement.

En tout cas, merci de votre aide

[hackoofr]

Svp le code du fichier calc.csv et soyez plus explicite càd : détaillez votre objectif final

[allezlinter]

Je ne comprends pas ce que vous entendez par le code du .csv. C'est le fichier qu'il faut que je vous fournisse ?

Pour les détails du projet, je voudrais qu'à partir d'un fichier csv, un script aille chercher la valeur contenue dans la cellule de la i ème ligne et 7e colonne, qu'il la convertisse en hexadécimale, et qu'il l'écrive, à la place d'une autre valeur, dans un fichier hexadécimal.
Le fichier hexadécimal final sera identique à l'initial sauf pour i offset où la nouvelle valeur sera celle issue du processus du script.
J'espère avoir clarifié mon idée

[hackoofr]

Je ne comprends pas ce que vous entendez par le code du .csv. C'est le fichier qu'il faut que je vous fournisse ?

Oui exactement et si vous n'avez bien sûr d’inconvénient de le poster en pièce-jointe.