[VB6]: Aggiungere zeri ad un testo e sostituire "." con ","

[Relisyss]

ciao a tutti,
vorrei sapere se ce un modo per fare aggiungere in una text ",00" e sostituire il "." con la ","qualora sia presente .... tutto ciò automaticamente.... mi spiego meglio:


se in una text inserisco "125" vorrei che mi aggiungesse ",00" tranne nel caso inserisca "125,15" cioè inserisca già io i decimali

se in una text inserisco "125.15" vorrei che mi sostituisse il "." con la ","

spero di essere stato chiaro un ringraziamento per una Vostra eventuale risposta ciao

[gigi90]

Dovresto usare il metodo Format applicato alla classe String oppure ti crei una aposita procedura

[gigi90]

Dovresto usare il metodo Format applicato alla classe String oppure ti crei una aposita procedura che preso come parametro il numero fa i dovuti controlli e restituisce la stringa elaborata Es.:

Sub ControllaZeri(ByRef StringNum as String)


'Se la stringa contiene un punto allora...

If StringaNum.Contains(".")=True Then
        StringaNum.Replace(".",",")     'Sostituisce il punto con la virgola
End If

'Se la stringa non contiene ne un punto ne la virgola aggiunge ,00 alla fine
If StringaNum.Contains(",")=False and StringaNum.Contains(".")=False Then
       stringaNum+=",00"
End If

End Sub

[Jupy64]

Originariamente inviato da gigi90
Dovresto usare il metodo Format applicato alla classe String oppure ti crei una aposita procedura che preso come parametro il numero fa i dovuti controlli e restituisce la stringa elaborata Es.:

Sub ControllaZeri(ByRef StringNum as String)


'Se la stringa contiene un punto allora...

If StringaNum.Contains(".")=True Then
        StringaNum.Replace(".",",")     'Sostituisce il punto con la virgola
End If

'Se la stringa non contiene ne un punto ne la virgola aggiunge ,00 alla fine
If StringaNum.Contains(",")=False and StringaNum.Contains(".")=False Then
       stringaNum+=",00"
End If

End Sub

Ciao, visto che Relysiss non ha specificato il linguaggio che usa (probabilmente non ha letto il regolamento..o dimenticanza..), chi ti dice che usa il .NET?
Cosi facendo si rischia di perdere tempo e "fatiche" inutilmente..

[Relisyss]

salve,
non ho speicificato....parlavo di VB6
ciao grazie

[Adrix]

ciao relisyss io ho il tuo stesso problema sto realizzando un programma di contabilità in VB6..come risolvere?

aiuto please

[alka]

Originariamente inviato da Relisyss
vorrei sapere se ce un modo per fare aggiungere in una text ",00" e sostituire il "." con la ","qualora sia presente .... tutto ciò automaticamente.... mi spiego meglio

E di questa discussione che ne facciamo? :rollo: