Discussion :

[developpeur82]

Bonjour,

j'utilise Visual Studio 2008. je souhaite selectionner un fichier dans le "openFileDialog". Comment faire? je dois en fait selectionner un fichier et cliquer sur OK afin que je puisse le traiter...je souhaite afficher aussi le chemin de ce fichier dans un "textbox". comment faire?

pouvez vous me donner le code pour ca svp?

But de la manip: faire un pogramme capable de selectionner un fichier (text) et le convertir en un autre format (fichier text aussi mais avec un autre format) afin qu'il soit lisible par un logiciel donnée.

Merci d'avance,

Cordialement,

[Poulain]

Bonjour,

tu peux trouver ces informations sur le forum très facilement, même avec la MSDN.

Avec un minimum de recherche, tu aurais trouvé plus rapidement.
Cordialement

[developpeur82]

merci pr votre reponse,

ca m'a permis d'avancer un peu. surtout que je ne connais pas ce .NET et je debute..

cependant j'ai une question tjr sur le meme sujet.

si dans ce fichier text (txt) j'ai:

toto = 0.123536373

comment remplacer "toto" dans le fichier lecture par "titi" dans le nouveau fichier?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
        Dim FF1 As New StreamReader(file_path.Text)
        Dim FF2 As New StreamWriter("file.txt")
 
        Do
            Ligne = FF1.ReadLine
            If ligne Is Nothing Then
                Exit Do
                If ligne = "toto" Then
                    ligne.Replace("toto", "titi")
                End If

que sais que ce n'est pas bon et qu'il manque un truc car

Code :

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

1
2
 
If ligne = "toto"

signifie qu'on lie la ligne entiere. Or la ligne entiere est:
toto = 0.123536373 (donc non seulement "toto")

comment lire juste "toto" dans cette ligne??
pouvez vs svp coriger mon code?

Merci bien

[smyley]

String.StartsWith ?

Sinon j'espère que ce n'est pas juste un fichier .ini non ?

[Poulain]

Voilà qui pourrait t'aider, sert toi de l'ami

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
32
33
34
35
36
Set objFso = CreateObject("Scripting.FileSystemObject")
' On ouvre en le fichier en lecture
Set expr = objFso.OpenTextFile (Server.MapPath("Chemin\Texte.txt"),1)
' Longueur est la longueur du mot qui remplace
Longeur = 9
' Une boucle pour parcourir tout les paragraphes
Do While Not expr.AtEndOfStream
' Une variable pour compter le nombre de mots remplacés
i = 0
Test = expr.ReadLine
' Si le mot n'est pas dans le texte, alors on s'arrete là et on passe au paragraphe suivant
If InStr(Test,"MotAChercher")<>0 Then
Response.Write Test & "<br />"
' On initialise Place1 (Debut de la recherche)
Place1 = 1
' On cherche la place du dernier mot dans le texte
Fin = InStrRev(Test,"MotAChercher")
Response.Write "Fin : " & Fin & "<br />"
Do
i = i + 1
' Place de la 1ere lettre du mot cherché
Place1 = Instr(Place1,Test,"MotAChercher")
Response.Write "Numero debut : " & Place1 & "<br />"
' On extrait le mot cherché
Extract = Mid(Test,Place1,Longeur)
Response.Write "Chaine extraite : " & Extract & "<br />i : " & i & "<br />"
Place1 = Place1 + 1
' On boucle jusqu'à ce que le dernier mot est atteint
Loop While Place1 < Fin
' On remplace tout les mots cherchés
Test = Replace (Test,"MotAChercher","MotQuiRemplace")
Response.Write Test & "<br /><br />"
End If
Loop
expr.Close
Set expr = Nothing