comment supprimer le dernier chiffre d'une chaîne avec un entier VB

Question

Comment puis-je supprimer le dernier chiffre d'une chaîne lorsque ma chaîne est sur le compteur i et que je veux le remplacer par un autre compteur?

Voici ce que j'ai jusqu'à présent:

For a = 0 To lstbxAdd.Items.Count - 1 
      xx = lstbxAdd.Items(a) 
      Select Case RTrim(dgvTest.Item(1, i).Value) 

       Case xx 
        stFuente.Value = numID.Text 
dgvTest.Item(3, i).Value &= stFuente.Value 

Answer 1

BONJOUR A TOUS I Could ENFIN RÉSOUDRE, si quelqu'un a ce problème, je LAISSER LE CODE

Dim stFuente As New VB6.FixedLengthString(7) 
    stFuente.Value = Space(7) 
    Dim sCampo As New VB6.FixedLengthString(7) 
    Dim a As Integer 
    Dim xx As String 

    Cursor = Cursors.WaitCursor 

    For i = 0 To dgvTest.RowCount - 2 
     If Len(RTrim(dgvTest.Item(1, i).Value)) <= 6 Then 
      GoTo Cambio 

     End If 

Cambio:

 Dim vartotal As String 

     For a = 0 To lstbxAdd.Items.Count - 1 
      xx = lstbxAdd.Items(a) 
      Select Case RTrim(dgvTest.Item(1, i).Value) 

       Case xx 
        stFuente.Value = numID.Text 

        vartotal = dgvTest.Item(3, i).Value.Substring(0, 6) 
        vartotal = Mid(vartotal, 1, Len(vartotal) - 1) 
        dgvTest.Item(3, i).Value = vartotal 
        dgvTest.Item(3, i).Value &= stFuente.Value 

      End Select 
     Next 

    Next 
    Cursor = Cursors.Default 
End Sub