Discussion :

[excalybur]

Bonjour,

La question peut être banal mais pourtant j'ai bien le cas qui me pose problème et je ne trouve pas l'astuce sur le net !
J'ai une liste de chaine écrit ainsi avec les guillemets, par exemple : "Chêne"

Le fichier d'origine écrit sur un autre système en UTF-8 contient des délimiteur des guillemets qui sont en 1ère position et en dernière position d'une chaine.

Les chaines en vb n'apprécient pas ces caractères concurrents. J'ai essayé avec REPLACE(string, """, "") mais ça ne marche pas.

Même raisonnement avec MID (string, 2, LEN(string)-1), mais ça ne marche pas non plus.

Avez-vous une idée pour virer ces guillemets des chaines? Merci pour vos idées.

[sevyc64]

Tu y étais presque : REPLACE(string, """", "")Il faut un " pour délimiteur de chaine en VB, puis un "". en effet pour que le guillemet soit pris comme guillemet et non pas délimiteur de chaine, il faut le doubler à l'intérieur de la chaine.
Et ensuite il faut un dernier " comme délimiteur de chaine pour fermer la chaine. Ce qui fait 4 guillemets en tout.

[Thumb down]

Bonjour,
ça EPLACE(string, """", "") c'est du VBA!

Code pur VB.NET :

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

1
2
Dim AA As String = """toto"""
AA = AA.Replace("""", "")

[excalybur]

Merci à tous, c'était simple ! J'étais en train d'analyser avec CHR() ...

Bonne journée

[MABROUKI]

bonjour

String.trim et char sont tes amis.
fichier texte ci joint.

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
 
 
Imports System.IO
Imports System.Text
 
Public Class Form1
    Dim path As String = Directory.GetCurrentDirectory() + "\TextFile1.txt"
    Dim sb As New StringBuilder
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
 
        Dim lines() As String = File.ReadAllLines(path)
        Dim cc As Char = """"
        For Each line As String In lines
            line = line.Trim(cc)
 
            sb.AppendLine(line)
 
        Next
        TextBox1.Text = sb.ToString
    End Sub
End Class

bon code....