Bonjour,
Voila j'ai crée un scrip en VBnet pour créer un scrip autocad à partir d'un fichier texte1. Le problème et que lorsque que j'ouvre ce script (crée avec VB = fichier texre2)sous autocad il me dit qu'il y a le caractère suivant :"I»¿" alors que je le vois nul par dans mon fichier txt2 et 1.
Ensuite je veux également mettre ce fichier texte2 dans access et la il me met sur la première ligne le caractère suivant :"°"?
j' ai essayé le code ci dessus mais je n'ai pas réussi!!
Est ce que quelqu'un peut m'aider ? s'il vous plait?
merci
voici mon code :
PublicClass Form1
Dim filereader3 As System.IO.StreamReader
Dim x, c, d, f, j, donne As String
Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click filereader3 =
My .Computer.FileSystem.OpenTextFileReader( "c:\test.txt" )/ OUVRE LE FICHIER TEXTE 1 donne =
""
While Not filereader3.EndOfStream / TANT QU' ON EST PAS A LA DERNIERE LIGNE IL CONTINUE 0 LE PARCOURIR
'Dim enc As System.Text.Encoding
'Dim sr As New System.IO.StreamReader("c:\test.txt", System.Text.Encoding.Default)
'Dim ch As String
' ch = sr.ReadLine()
' Console.WriteLine(ch)
' Console.Write(ch.IndexOf("°"))
' MsgBox(ch) x = filereader3.Read
c = Mid(x, 1, 9)
d = Mid(x, 11, 10) / RECUPERE LES DONNEES QUI MINTERRESSE
j = Mid(x, 22, 1)
f = Mid(x, 27, 1)
If j = 1 And f = 1 Then donne = donne +
"circle" + " " + c + "," + d + " " + "1.1" + vbNewLine / INSERT LES DONNEES AVEC LES COMMANDES AUTOCAD
End If
If j = 1 And f = 2 Then donne = (donne +
"square" + " " + c + "," + d + " " + "1.1" + vbNewLine)
End If
End While EcrireFichier()
Close()
End Sub
Private Sub EcrireFichier()
Dim filewriter As System.IO.StreamWriter filewriter =
My .Computer.FileSystem.OpenTextFileWriter( "c:\tt.txt" , False )/ ECRIT LES LIGNES COMMANDE AUTOCAD AVEC LES DONNEES FICHIER TEXTE 2 filewriter.Write(vbCrLf + donne)
filewriter.Close()
End Sub
je suis vraiment nul help me !