Discussion :

[NulenExcel77]

Bonjour,

Merci les gars, ça m'a pas mal fait avancer aussi.

Je suis super débutant en vb.net, j'étais plutôt VBA .J'aimerai donné un petit coup de pro à mes appli VBA d'où VB.net

J'ai donc utilisé ce code avec succès chez moi en local, sauf que je voudrais à court terme permettre à plusieurs postes

d'utiliser mon petit outils de conversion code résistance (je bosse dans l'électronique ) et je m'aperçois qu'il ne marche pas

parce qu'il manque un fichier txt (que j ai en local chez moi) ce fichier n'a pas été compilé lors de la publication.

En faisant des recherches je tombe (sans me faire mal) sur les Myresources. En trifouillant un peu avec VBExpress

j'arrive à faire apparaitre un onglet txt en ressource mais n'arrive pas à l'utiliser

Ma question (enfin) puis je partir du code d'elscorpio ci-dessus, ou la syntaxe est elle complètement différente ??

Merci d'avance de vous arrêter quelques minutes sur mon problème


Quoi pas assez clair ??? n'hésitez pas à me réclamer des précisions.

[Pol63]

il faut glisser ton fichier dans le fichier de ressource de l'application (là où il y a les string par exemple)
puis lire ca (qui explique ce que ca fait) :

http://www.developpez.net/forums/d13...s/#post7111334

ton fichier sera alors contenu dans l'exe, et vs va générer du code pour le lire facilement
et après à la place de system.io.file.read... il faut my.resources.nom_de_ta_ressource (nom du fichier par défaut à priori)

[NulenExcel77]

Bonsoir Pol63 ,

Merci de consacrer un peu de ton temps à mon casse tète.

Tu veux dire un truc comme ça??

Code :

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

 lines = My.Resources.TexteFile1

Peut être n'avais je pas placé le fichier dans le bon dossier !!!!

Je suis encore au travail, je m'y emploierai ce soir et te répondrai demain sans faute

avec j'espère de bonnes nouvelles .

Merci encore et bonne soirée

[Pol63]

Peut être n'avais je pas placé le fichier dans le bon dossier !!!!

oui c'est en double cliquant sur le fichiers .resx de l'application (caché par défaut peut etre) et en glissant le fichier dedans que vs génère le code et créé la propriété que tu as écris
ce n'est pas juste en mettant un fichier dans un dossier
dans la fenetre que je te parles, en haut à gauche il y a un combobox "string/images/autres/...", peut importe le choix, vs détecte le type de fichier pour le ranger dans la bonne catégorie


par il faudra utiliser split( ... , vbcrlf)
car la propriété contiendra tout le fichier (donc à découper en ligne)

[NulenExcel77]

Bonjour Pol63,

Je vais essayer d’arrêter de m'arracher les cheveux et t"exposer la suite de mon calvaire.

J'ai tout d’abord réussi à inclure mon fichier .txt dans le .resx de l'application (tu avais raison, il était caché)

J'ai ensuite modifié le code comme tu me l'avais dit et là, problème, les termes sont soulignés.

Le premier, le message dit qu'il est impossible de convertir une valeur de type string en tableau à une dimension de string

Le deuxième, idem que le premier (il m'en veut deux fois plus donc)

Pour rappel, mon txt se présente comme ceci : toto = tata
tutu = titi
lol = mdr
SI je met toto en textbox1, il me retourne tata en textbox2

Je te laisse le code dans son ensemble.

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
31
Imports System.IO
Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
 
 
    Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
        If (e.KeyCode = Keys.Enter) Then
 
            Dim lines() As String
            Dim Wrd As String
            Dim Convert As String
 
            Wrd = TextBox1.Text
            lines = My.Resources.TextFile1
            'lines = System.IO.File.ReadAllLines("C:\Users\toto\Desktop\Vb.net\Essai.txt")
 
            For Each line As String In lines
                If line.Contains(Wrd) Then
                    Convert = Split(line, vbCrLf)
                    'Convert = Split(line, "=")(1)
 
                    TextBox2.Text = Convert
                    Exit For
                End If
            Next
        End If
    End Sub
End Class

Merci de m'aider

Bonne journée

[Pol63]

tu as mis le split au mauvais endroit

il est pour My.Resources.TextFile1 (pour découper en lignes, pour pouvoir faire for each line)