[VB]Travailler sur un string

**Little-Freud** · 16/05/2006, 17h03

salut à tous !!

bon voila j'ai besoin de savoir une petite methode ou fonction qui voudrai me retourner le chiffre que je cherche.

j'ai une variable string qui contient un montant, par ex: 10,55 ou 5,55 ou 8 ou 11,5

on peut voir ici que la virgule n'est pas tjs à la troisième place dans la variable string.
je voudrais retrouver l'emplacement de cette virgule avecune fonction, mais je ne trouve pas laquelle... j'aurai besoin de savoir ou se situe la virgule dans le fichier, afin de faire des tests suivant la position de la virgules..je ne sais pas si vous me suivez..

merci par avance pour toute aide.

**malhivertman1** · 16/05/2006, 17h04

Regarde le fonction instr(Départdanstachaine(ex:1 pour 1er caractere) --> non obligatoire, tachaine, tarecherche)
elle te retourne la place du caractere que tu cherches

**ouskel'n'or** · 16/05/2006, 17h05

Code :

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

PositionDeLaVirgule = Instr(Lavariable,",")

Tu dis

**jmfmarques** · 16/05/2006, 17h19

Je ne sais par pourquoi, mais je "devine" quelque chose...

Tes tests, quels vont-ils être ?
Car si ce sont ceux auxquels je pense, le chemin pris (position de la virgule) n'est pas le meilleur

**méphistopheles** · 16/05/2006, 19h15

si tu en as beaucoup, un split serais à mon avis préférable.

**AlainTech** · 16/05/2006, 21h08

Envoyé par jmfmarques

Je ne sais par pourquoi, mais je "devine" quelque chose...

Tes tests, quels vont-ils être ?
Car si ce sont ceux auxquels je pense, le chemin pris (position de la virgule) n'est pas le meilleur

+1

Je "sens" pareil.

**Little-Freud** · 17/05/2006, 09h00

mes tests sont simples, j'ai un montant que je récupère d'un fichier excel, il se trouve sous les formes que je vous ai donné, et je convertis mon xls en txt suivant une trame de données bien précises.

sauf que suivant les virgules j'ai des "0" à introduire avant ou après le montant afin de faire correspondre avec ma trame.

ex: 40.5 -> 4050 sur mon txt
6.5 -> 0650 sur mon txt

je dois savoir ou se trouve ma virgule sinon ca me fou mes tests pr la suite de mon programme en l'air...voila pourquoi...est ce bien le genre de tests à quoi vs pensiez...?

**jmfmarques** · 17/05/2006, 09h18

Code :

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

1
2
3
4
5
Private Sub Command1_Click()
  tt = "40,5"
  tt1 = Format(Int(tt) & Mid(tt - Int(tt), 3) & "0", "0000")
  MsgBox tt1
End Sub

**ouskel'n'or** · 17/05/2006, 09h23

Comme je soupçonnais un formatage de données pour avoir eu à le faire, ça colle. J'adore faire ça parce que c'est illisible...

Code :

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

1
2
3
4
5
6
7
 
'Ex de formatage désiré "0000,0000"
LeNombre = 12.125
LeNombreFormaté = Right("0000" + Left(CStr(LeNombre) _
, InStr(CStr(LeNombre), ",") - 1), 4) + Left(Right(CStr(LeNombre) _
, Len(CStr(LeNombre)) - InStr(CStr(LeNombre), ",") + 1) + "0000", 5)
MsgBox LeNombreFormaté '= "0012,1250"

Amuse-toi bien

A+

**jmfmarques** · 17/05/2006, 09h24

Bonjour ousk !
On s'amuse ?

**ouskel'n'or** · 17/05/2006, 09h26

Le matin au réveil, j'aime bien

Salut jemefe !

**Little-Freud** · 17/05/2006, 11h42

ah j'ai fait une bonne usine a gaz, vs allez voir...l'important c'est que ca fonctionne bien mon affaire...que des tests if ^^

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
 
   ValMontant = Replace(ValMontant, "-", "")
 
              If ((Len(ValMontant)) = 0) Then
                ValMontant = "000000000"
 
                ElseIf ((Len(ValMontant)) = 1) Then
                    ValMontant = Replace(ValMontant, ".", "")
                    ValMontant = "000000" & ValMontant & "00"
 
                ElseIf ((Len(ValMontant)) = 2) Then
                    ValMontant = Replace(ValMontant, ".", "")
                    ValMontant = "00000" & ValMontant & "00"
 
                ElseIf ((Len(ValMontant)) = 3) Then
                    PositionSeparateur = InStr(ValMontant, ".")
                    ValMontant = Replace(ValMontant, ".", "")
 
                    If PositionSeparateur = 0 Then
                        ValMontant = "0000" & ValMontant & "00"
                        ElseIf PositionSeparateur = 2 Then
                            ValMontant = "000000" & ValMontant & "0"
                    End If
 
                ElseIf ((Len(ValMontant)) = 4) Then
                    PositionSeparateur = InStr(ValMontant, ".")
                    ValMontant = Replace(ValMontant, ".", "")
 
                    If PositionSeparateur = 2 Then
                        ValMontant = "000000" & ValMontant
                        ElseIf PositionSeparateur = 3 Then
                            ValMontant = "00000" & ValMontant & "0"
                    End If
 
                ElseIf ((Len(ValMontant)) = 5) Then
                    PositionSeparateur = InStr(ValMontant, ".")
                    ValMontant = Replace(ValMontant, ".", "")
 
                    If PositionSeparateur = 3 Then
                        ValMontant = "00000" & ValMontant
                    End If
 
            End If

**jmfmarques** · 17/05/2006, 11h45

Ben oui ! C'EST une usine à gaz !

**Megaxel** · 17/05/2006, 13h18

2 choses totalement inutiles:
- à Little-Freud: beurk, ce code...

- à jmf: Tiens? Tu es devenu fakir, ça y est?

**AlainTech** · 17/05/2006, 13h20

Pfffff

Code :

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

LeTexte = Int(ContenuDeLaCellule * 100)

Autrement dit, inutile de chercher la position de la virgule...

Edit --> Si on veut supprimer le signe négatif:

Code :

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

LeTexte = Abs(Int(ContenuDeLaCellule * 100))

Edit2 --> Et s'il faut des zéros devant:

Code :

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

LeTexte = Format(Int(ContenuDeLaCellule * 100), "000000000")

**riesseg** · 17/05/2006, 14h16

et la je crois que Alain vous torche tous avec sa technique ^^

Je voulasi lui demander comment il faisait pour mettre les 0 devant, mais un temps d'hesitation a fait qu'il a pus editer...