[VB]Travailler sur un string

Version imprimable

16/05/2006, 17h03
Little-Freud

[VB]Travailler sur un string

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.
16/05/2006, 17h04
malhivertman1

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
16/05/2006, 17h05
ouskel'n'or

Code:

PositionDeLaVirgule = Instr(Lavariable,",")

Tu dis
16/05/2006, 17h19
jmfmarques

Je ne sais par pourquoi, mais je "devine" quelque chose...:lol:
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 ;)
16/05/2006, 19h15
méphistopheles

si tu en as beaucoup, un split serais à mon avis préférable.
16/05/2006, 21h08
AlainTech

Citation:

Envoyé par jmfmarques

Je ne sais par pourquoi, mais je "devine" quelque chose...:lol:
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.
17/05/2006, 09h00
Little-Freud

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...?

Code:

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

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:

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+

17/05/2006, 09h24
jmfmarques

Bonjour ousk !
On s'amuse ?:lol:
17/05/2006, 09h26
ouskel'n'or

Le matin au réveil, j'aime bien :lol: Salut jemefe !

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:

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

17/05/2006, 11h45
jmfmarques

Ben oui ! C'EST une usine à gaz !:mouarf:
17/05/2006, 13h18
Megaxel

2 choses totalement inutiles:
- à Little-Freud: beurk, ce code... :D
- à jmf: Tiens? Tu es devenu fakir, ça y est? :D
17/05/2006, 13h20
AlainTech

Pfffff

Code:

LeTexte = Int(ContenuDeLaCellule * 100)

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

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

Code:

LeTexte = Abs(Int(ContenuDeLaCellule * 100))

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

Code:

LeTexte = Format(Int(ContenuDeLaCellule * 100), "000000000")
17/05/2006, 14h16
riesseg

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...
17/05/2006, 14h31
jmfmarques

Bravo Alain (je n'ai pas osé proposer celà, me demandant s'il n'y avait toujours que 2 chiffres après la virgule ;) )
21/05/2006, 16h05
ouskel'n'or

Citation:

Envoyé par riesseg

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

Ici on ne torche personne, Monsieur, on essuie ou on change les couches :evil: Et puis c'est tout !