Discussion :

[BBouille]

Bonjour les amis,
Essayant de retranscrire un programme en VB.Net en un autre langage, je bute sur une fonction.
Déjà je ne retrouve pas l'occurrence String$ sur la toile.
La fonction est donc :

Code :

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

fmt = fmt + "." + String$( NbDecimales, 48 )

Que peut bien signifier le 48?
Merci à vous.

[Thumb down]

Bonjour,
Dans ce que tu nous montres je ne vois pas de VB.net et je ne sais pas vers quel langage tu veux migré !

Saches que l'instruction tel que tu l'exprime ressemble à du VBA!
V=STRING$(4,"0") 'string$(nombreChar,"Caractère")

[sevyc64]

idem, ça ressemble plus à du VBA que du VB.net.

48 est le code ascii du caractère "0"

[Phil Rob]

Bonjour,

La fonction String (du VBA) ou String$ (du VB 5 ?, ou antérieur, quand on utilisait encore le caractère $ ...), sert à créer une chaine composée d'un caractère donné répété un nombre de fois également donné.
Dans ton exemple, le caractère donné est le zéro (ASCII 48) et il doit être répété NbDecimales fois.

Tu peux toujours recréer la fonction suivante :

Code :

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

1
2
3
4
5
6
7
Function MaFonctionString(Nombre As Integer, Caractere As Char) As String
Dim Resultat As String = String.Empty
For i As Integer = 1 To Nombre
  Resultat &= Caractere
Next i
Return Resultat
End Function

Pour l'exemple, tu peux tester cette fonction comme ceci :

Code :

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

1
2
3
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        MessageBox.Show(MaFonctionString(5, "0"))
     End Sub

Mais si le but est de formater des chaines représentant des valeurs numériques, tu peux t'intéresser aux outils de VB.Net, tels que PadLeft, PadRight, Format :

Code :

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

1
2
3
4
5
6
VariableChaine = UneChaineACompleter.PadLeft(Nombre,  Caractere)
VariableChaine = UneChaineACompleter.PadRight(Nombre,  Caractere)
 
VariableChaine = String.Format("Modele", VariableNumerique) ' il existe de nombreux modélles.
' par exemple :
VariableChaine = String.Format("{0:###.#}", 12.35)   ' VariableChaine reçoit : 12.4

J'espère que ceci te donnera des idées ...

[Thumb down]

re bonjour,

Code Dot .Net :

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

 MessageBox.Show(New String("C", 10))

Comme notre amis voulait migrer ce qu'il pensait être du vb.net en autre langage il serait intéressant qu'il nous précise quel est cet autre langage qu'on ne s'évertue pas à lui donner en Vb.net, ce qui ne l'intéresse vraisemblablement pas!

[Phil Rob]

Ok Thumb down tu as raison : j'ai tout simplement "pas lu" l'énoncé
Effectivement, en connaissant le langage cible, il serait plus facile d'y répondre.

[BBouille]

Holà merci les amis.
Pour le langage du programme duquel je suis parti je l'ai récupéré dans une rubrique "Visual Basic / VB.NET".
Le plus étrange c'est de ne pas avoir trouvé d'occurrence "String$" sauf mauvaise recherche.
Ah oui d'accord après coup le 48 correspond au code ASCII ce qui est logique comme on doit ajouter des "0".
Mes langages de programmation sont Delphi et Xojo (RealBasic).
Encore merci.

[Phil Rob]

Bonjour,
Je ne sais pas si l'instanciation d'une chaine telle proposée par Thumb down est transcriptible en Delphi (probablement que oui) mais la boucle de concaténation que j'ai écrite doit pouvoir être traduite dans n'importe langage.
En tous cas, tu sais mainrenant ce que fait la fonction String$, tu peux la récrire à ta mode.
Bon codage ...

[BBouille]

Bien sûr Phil, après coup je suis presque gêné d'avoir posé la question, s'il y avait eu un caractère devant le 48 je ne me serais sans-doute pas posé la question.