[C#] Décrémenter tous les numerique d'un string

**frechy** · 03/03/2006, 18h11

Salut,

Je dois m'amuser à traduire un vieux programme Pascal en C#...oui c fun le Pascal

Enfin voilà j'ai des centaines de traitement répetitifs, j'aimerais tranformer le code Pascal en C# pour ne pas devoir m'amuser à changer chaque ligne une par une.

En fait le code est finalement très similaire, mais ce qui m'enuie c est qu'en Pascal les tableaux commencent à 1, je voudrais donc transformer ce type de chaine de caractères;

Code :

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

if (moy[9]>se) and (moy[14]>se) and (moy[27]>se) then cs[1] := po;

en

Code :

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

1
2
3
4
if ((moy[8]>se) and (moy[13]>se) and (moy[26]>se))
{
 cs[0] := po;
}

pour ce qui est des {} ca je peux encore le faire à la main, ca ira vite, mais ce que je cherche à faire c est à trouver un traitement qui me renvoi une chaine dont tous les numéric auront été décrémenté.

Any

?

Sinon si vous connaissez à tout hazard un traducteur Pascal

C#... on sait jamais

Merci ++

**NiamorH** · 03/03/2006, 19h26

j'ai fait ça vite fait :

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
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = AjouteNumerics(TextBox1.Text, -1)
    End Sub
 
    Private Function AjouteNumerics(ByVal str As String, ByVal ajoute As Integer) As String
        Dim longueur As Integer = str.Length
        Dim c As Char
        Dim temp As String = ""
        Dim retour As String = ""
        Dim i As Integer
 
        For i = 1 To longueur
            c = Mid(str, i, 1)
            If c.IsNumber(c) Then
                temp = temp & c
            Else
                If temp <> "" Then
                    retour = retour & (temp + ajoute)
                    temp = ""
                End If
                retour = retour & c
            End If
        Next
        If temp <> "" Then retour = retour & (temp + ajoute)
 
        Return retour
    End Function