Discussion :

[mcphand]

Bonjour,
j ai un probleme qui semble tout bete mais je ne trouve pas comment le resoudre:
J ecris dans un fichier et si je fais:
WriteLine(fileHandle, "<centity>")
Dans le fichier cela donne
"<centity>"
Comment faire pour ne pas avoir les guillemets?

remarque je voudrais ecrire des choses du type: <name>_nom<\name> dans mon fichier sans virgule entre les bornes et la variable ni les guillemets

Merci d avance

[Pol63]

il y a plusieurs moyens d'écrire dans un fichier
essaye en un autre ...

[Aspic]

Utilise la classe StreamWriter :

Code :

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

1
2
3
 Dim Flux As New StreamWriter(Application.StartupPath & "\test.txt", False) 'crée un fichier nommé test.txt
        Flux.Write(RTB.Text) 'écrit les données dans le fichier
        Flux.Close() 'ferme le fichier

[JauB]

Bonjour,
j ai un probleme qui semble tout bete mais je ne trouve pas comment le resoudre:
J ecris dans un fichier et si je fais:
WriteLine(fileHandle, "<centity>")
Dans le fichier cela donne
"<centity>"
Comment faire pour ne pas avoir les guillemets?

remarque je voudrais ecrire des choses du type: <name>_nom<\name> dans mon fichier sans virgule entre les bornes et la variable ni les guillemets

Merci d avance

si tu essaies avec :

Code :

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

1
2
3
4
 
Dim s as String
s= "<centity>"
WriteLine(fileHandle, s )

ça donne quoi?

[mcphand]

j ai deja essayé aucune difference
je comprend pas qu'il existe pas une methode capable de faire ca!!
Je cherche toujours
merci pour l aide

[mcphand]

j ai réussi en utilisant:
Dim sFileName As String = Application.StartupPath.ToString & "\diagram.dat"
Dim fs As New System.IO.FileStream(sFileName, IO.FileMode.OpenOrCreate, IO.FileAccess.Write)
Dim sw As New System.IO.StreamWriter(fs)
sw.WriteLine("unechainedecaractere)

J aurais encore une question, je decouvre vb.net au fur et a mesure de mon projet , existe t il l equivalent du /t en C pour faire des tabulations
Merci encore

[JauB]

voilà je te file la fonction que j'ai utilisée dans une application. ça marche nickel:

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
 
Sub createETEBACFile(ByVal NomFichier As String, ByVal strDetail() As String, ByVal code_etat_ As String)
Dim sw As StreamWriter
Dim strDate As String ' Date Emission
Dim strEntete As String ' strEntete => La chaine de l'en-tête
Dim i As Integer
'##: L'entête
strEntete = "blablabla"
If Date.Now.Day.ToString.Length = 1 Then
If Month(Date.Now).ToString.Length = 1 Then
strEntete &= Year(Date.Now) & "0" & Month(Date.Now) & "0" & Date.Now.Day
Else
strEntete &= Year(Date.Now) & Month(Date.Now) & "0" & Date.Now.Day
End If
Else
If Month(Date.Now).ToString.Length = 1 Then
strEntete &= Year(Date.Now) & "0" & Month(Date.Now) & Date.Now.Day
Else
strEntete &= Year(Date.Now) & Month(Date.Now) & Date.Now.Day
End If
End If
strEntete &= strDate
strEntete &= "0000000000"
Try
If Not File.Exists(NomFichier) Then
'Le fichier n'existe pas. On le crée 
sw = New StreamWriter(NomFichier)
sw.WriteLine(strEntete)
sw.Close()
sw = Nothing
sw = File.AppendText(NomFichier)
For i = 1 To ListDFOk.Items.Count
'Application.DoEvents()
sw.WriteLine(strDetail(i))
Next
sw.WriteLine(code_etat_)
sw.Close()
sw = Nothing
Else
File.Delete(NomFichier)
sw = New StreamWriter(NomFichier)
sw.WriteLine(strEntete)
sw.Close()
sw = Nothing
sw = File.AppendText(NomFichier)
For i = 1 To ListDFOk.Items.Count
'Application.DoEvents()
sw.WriteLine(strDetail(i))
Next
sw.WriteLine(code_etat_)
sw.Close()
sw = Nothing
End If
Finally
'Fermeture streamwriter 
If Not IsNothing(sw) Then sw.Close()
End Try
End Sub

tu peux y changer quelques lignes et voilà ça va te répondre à ta question.
Bon courage

[JauB]

tant mieux