Discussion :

[M.Max]

Bonjour à tous,

J'ai une chaîne qui comporte un espace que je dois supprimer avant de l'envoyer sur la BDD.
Problème : la requête SQL est en erreur ==>

ERROR [22P02] ERROR: invalid input syntax for type numeric: "3�260.00";
Error while executing the query

Ma chaîne est "3 260.00", j'utilise donc la fonction Replace(, " ","") pour supprimer l'espace en question.

Comme on peut voir dans le message d'erreur, il y a un caractère "�" qui n'est pas reconnu par PostGreSQL.
D'où peut-il bien venir sachant que c'est un espace transformé en "rien" ?

Merci à tous.


EDIT : le bloc de code ne connaît pas "�"

[mactwist69]

Avant d'effectuer ta requête, tu pourrais convertir ta chaîne en un Float.

[M.Max]

C'est exactement ce que je viens de faire et ça me renvoi :

Conversion from string "3�399.98" to type 'Double' is not valid.

[mactwist69]

Mais tu le fais dans ton code? du genre:

Code :

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

1
2
3
4
Dim MonPrix as string = "3 254,45"
Dim MonPrixFloat as Float = MaFonction(MonPrix)
 
Execute_ma_requete ("Insert into matable (monprix) values (" & MonPrixFloat & ")")

[sihammaster]

Bonjour,
Essayer cet exemple ca marche chez moi:

Code :

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

1
2
3
Dim MonPrix As String = "3 254,45"
        MonPrix = MonPrix.Replace(" ", "")
        MessageBox.Show(MonPrix.Trim)

Bonne Continuation.

[M.Max]

Oui effectivement, je le fais dans le code, au moment de la requête :

Code :

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

"INSERT INTO matable (champ) VALUES " & CType(monprix,Double)

[M.Max]

Bonjour,
Essayer cet exemple ca marche chez moi:
Dim MonPrix As String = "3 254,45"
MonPrix = MonPrix.Replace(" ", "")
MessageBox.Show(MonPrix.Trim)
Bonne Continuation.

Oui effectivement j'avais essayé, quand je l'affiche comme ça, cela fonctionne. Mais PostGreSQL n'a pas l'air de le voir de cette façon. Au lien de mettre "", il faut croire qu'il y a "rien". Vous me suivez ?

[Sehnsucht]

Transformer un Double en String, ça sent la tâche pour la surcharge de Double.ToString(format, provider) ça

Code VB.Net :

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
 
'Déclaration d'un Double
Dim doubleValue As Double = 3260.0
 
'Conversion du Double en String selon le format ; partie entière et décimale,
'séparateur de milliers, séparateur décimal et signe négatif optionnel définis
'selon la culture en cours sur le système - français normalement -
Dim stringValue As String = doubleValue.ToString("N2", Globalization.NumberFormatInfo.CurrentInfo)
 
'Affichage de la valeur (résultat obtenu: 3 620,00)
Console.WriteLine(stringValue)
 
'Conversion du Double en String selon le format ; partie entière et décimale,
'séparateur décimal et signe négatif optionnel définis
'selon la culture dite invariante/neutre
stringValue = doubleValue.ToString("F2", Globalization.NumberFormatInfo.InvariantInfo)
 
'Affichage de la valeur (résultat obtenu: 3620.00)
Console.WriteLine(stringValue)

Voilà en espérant avoir aidé un peu, plus d'infos sur les formats numériques disponible sur msdn

[M.Max]

En fait on cherche plutôt à transformer un string en double.
Bref, en fait pour mieux expliquer le contexte, j'ai un prog qui va lire un fichier text, puis qui split les lignes pour extraire chaque donnée que je vais ensuite envoyer dans la BDD.
Voilà pourquoi mes chiffres sont en string.

[M.Max]

OK je viens de faire machine arrière.

Il s'avère que le problème ne vient pas de Replace(), ce qui me rassure vu le caractère impossible de la chose.

En fait quand le programme split la ligne du fichier text, les données ont déja ce caractère. Lorsque je fais :

Code :

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

MsgBox(inputs(1).ToString)

ça me retourne "3�260.00"

Autant vous dire que c'est bien "3 260.00" qui s'affiche dans le fichier txt (et ce n'est pas une tabulation).

Du coup je m'enfonce, any idea ?

[Sehnsucht]

Tu pourrais faire ça pour essayer de savoir qui est ce caractère mystère ?

Code VB.Net :

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

1
2
 
MessageBox.Show(AscW(inputs(1).ToString()(1))

[M.Max]

Super je ne connaissais pas la fonction AscW().

Ca me retourne 65533 !

[Sehnsucht]

Bon voilà j'ai cherché un peu et je me retrouve avec ça qui fonctionne il y a peut être mieux, mais bon

Code VB.Net :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim stringValue As String = "3�260.00"
Dim doubleValue As Double
 
Dim nfi As New Globalization.NumberFormatInfo() With {.NumberDecimalDigits = 2, .NumberDecimalSeparator = ".", .NumberGroupSeparator = ChrW(65533)}
 
If Double.TryParse(stringValue, Globalization.NumberStyles.Number, nfi, doubleValue) Then
    Console.WriteLine("Réussite de la conversion")
Else
    Console.WriteLine("Echec de la conversion")
End If
 
Console.WriteLine("Avant : {0} ; Après : {1}", stringValue, doubleValue)

Edit: le machin bizarre dans mon nombre en fait c'est que dans la balise CODE "3�260.00" apparait comme ça (ce qui aurait permis de savoir que c'était le 65533 beaucoup plus vite on en apprend tous les jours)

[M.Max]

Arf, le problème c'est que dans mon exemple j'utilisais 3 260 mais en réalité j'ai des milliers de donneés à gérer. Je n'ai donc aucune idée du format que chaque chiffre peut avoir et je n'ose pas imaginer le traitement nécessaire pour faire un code assez générique pour ne pas avoir de problème.

Ceci dit je me demandais si on ne peut pas appeller un "code caractère" dans la fonction Replace().
Du genre : Replace(inputs(1).ToString,65533, "")
ça me semble beaucoup plus simple !

[Sehnsucht]

Tu vas faire ça (peut etre en changeant le nom du fichier s'il existe déjà chez toi) ça te permettra de récupérer un fichier contenant les différentes valeurs de ce caractère

Code VB.Net :

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
 
Dim index As Integer
Dim list As New List(Of Integer)()
 
For i As Integer = 0 To nbInputs
    index = inputs(i).ToString().IndexOf(".") - 4
    If index < 1 Then Continue For
    If Not list.Contains(AscW(inputs(i).ToString()(index))) Then list.Add((AscW(inputs(i).ToString()(index)))
Next
 
Dim sb As New System.Text.StringBuilder()
 
For Each item As Integer In list
    sb.AppendLine(item)
Next
        My.Computer.FileSystem.WriteAllText(My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\tmp.txt", sb.ToString(), False)
 
MessageBox.Show("Nombre de valeurs différentes : " & list.Count)

[MetalGeek]

Salut,

essaie avec une requête paramétrée, le moteur se chargera de convertir au bon format.

[M.Max]

Salut,

essaie avec une requête paramétrée, le moteur se chargera de convertir au bon format.

Désolé mais je ne vois pas le rapport ?


@Sehnsucht : j'essaye d'implanter, on va bien voir ce que ça donne.

[Geo2A]

Bonjour,

Le fait d'être sous postgres devrait vous faire penser à l'encodage des caractères. Le "&#" aussi.
Je n'ai pas la réponse mais à coup sur ça vient de là votre BD elle est définie avec quel encodage ?

A+

[M.Max]

Bonjour,

Le fait d'être sous postgres devrait vous faire penser à l'encodage des caractères. Le "&#" aussi.
Je n'ai pas la réponse mais à coup sur ça vient de là votre BD elle est définie avec quel encodage ?

A+

Le problème est en amont de la BDD. Comment postgres pourrait comprendre un amoncellement de caractère et en définir une variables numerique ?

[Geo2A]

Bonjour,

J'avais mal lu (j'avais cru que les données provenaient de la BD) :

En fait quand le programme split la ligne du fichier text, les données ont déja ce caractère.

C'est donc le fichier texte qui est encodé de façon particulière. Et le problème se situe à la lecture du fichier texte.