Probléme de conversion

Version imprimable

Bonjour,je cherche à incrémenter mes codes mais il me semble que jais des probléme pour une partie de ma chaine

Code:

1
2
3
4
5
6
7
8
9
10
11
 
        ' a c'est une variable qui récupére la valeur converti
        Dim a As Integer
        Dim separateur As Char = "_"
        Dim cod As String = "CC_001"
        If cod.Contains("_") Then
            Dim m() As String
            m = cod.Split(separateur)
            m(1) = cod(1)
            a = CType(m(1), Integer)
        End If

je n'arrive pa a récupéré la partie 001 de la chaine pour le convertire.
pour ajouter 1 a chaque fois que le reponse est vrais

Code:

1
2
3
if reponse=Vrai
cod = ("CC_" & (a + 1).ToString)
end if

Merçi

19/06/2012, 14h28
BenoitM

bon si j'ai bien compris "CC_001" est ta chaine d'entrer mais tu veux obtenir quoi?
19/06/2012, 14h38
LILIFA

je veu optenir CC_002 aprés si la réponce est vrai.

Code:

1
2
3
4
5
6
7
8
9
10
        Dim separateur As Char = "_"
        Dim txt As String = "CC_001"
        Dim txtNextVal As String
        Dim strArray() As String
 
        strArray =txt.Split(separateur)
        strArray = txt.Split(separateur)
        If strArray.Count > 1 Then
            txtNextVal = strArray(0) + "_" + String.Format("{0:000}", (1 + Integer.Parse(strArray(1))))
        End If

Code corriger j'avais mis Lenght à la place de Count
Int à la place d'Integer j'aime pas le vb :calim2:

Je me suis fais un petit projet avec un bouton et un label :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title></title>
</head>
 
<body>
    <form id="form1" runat="server">
    <div>
    <asp:button runat="server" text="Button" ID="btn" /><asp:Label ID="Label1" runat="server"
        Text="Label"></asp:Label>
    </div>
    </form>
</body>
</html>

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
 
Partial Class _Default
    Inherits System.Web.UI.Page
 
 
    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then Label1.Text = "cc_001"
    End Sub
 
 
    Protected Sub btn_Click(sender As Object, e As System.EventArgs) Handles btn.Click
 
        Dim separateur As Char = "_"
        Dim cod As String = Label1.Text
        Dim Cods() As String = cod.Split(separateur)
        Dim a As Integer = Cods(1)
 
        Label1.Text = (Cods(0) & separateur & (a + 1).ToString("D3"))
 
    End Sub
 
End Class

A chaque clic on obtiens cc_001, cc_002,...,cc_010...

19/06/2012, 15h02
LILIFA

Ca génère une erreur :

Citation:

La conversion de la chaine "C" en integer n'est pas valide.
19/06/2012, 15h06
Pelote2012

t'a l'rreur pour quel code
Personnellement j'ai encore le miens devant et je suis à cc_102

Salut

Code:

1
2
3
4
5
6
7
codein = "CCC-001"
        Dim items() As String
        If codein.Contains("-"c) Then
            items = codein.Split("-"c)
            items(1) = (Convert.ToInt32(items(1)) + 1).ToString.PadLeft(items(1).Length, "0"c)
            codein = items(0) & "-" & items(1)
        End If

19/06/2012, 15h32
LILIFA
Tu sais mois je travail avec mon base de donnée mais cette

Code:

LBS.Text = (cods(0) & separateur & (a + 1).ToString("D3"))

je le met aprés l'éxécution de la requéte de se faite la partie chargement
Code:

1 2 Private Sub Structures_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load LBS.Text = (cods(0) & separateur & (a + 1).ToString("D3"))
je souffre .je comprent pas 'Inherits System.Web.UI.Page c'est pour faire quoi exactement?

je t'ai fait un copier collier de tout le petit projet
C'est pour que tu puisse faire la même chose de ton côté
tu peut récupérer que les partie qui te semble utile

Au 1er chargement de ma page, je met cc_001 dans mon label

Code:

1
2
3
4
 
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then Label1.Text = "cc_001"
End Sub

Quand un clic à lieu

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    Protected Sub btn_Click(sender As Object, e As System.EventArgs) Handles btn.Click
 
        Dim separateur As Char = "_"
        Dim cod As String = Label1.Text
        Dim Cods() As String = cod.Split(separateur) 'Couper en 2 "cc" sera dans cods(0) et le chiffre dans cods(1)
        Dim a As Integer = Cods(1)
 
        Label1.Text = (Cods(0) & separateur & (a + 1).ToString("D3")) 'D3 sert juste à formater ton chiffre sur 3 digits par exemple 5 = 005
'Cods(0) = "cc" separateur = "_" (a+1) = new chiffre
'Je met le tout dans le label pour qu'au prochain cli je passe au chifre suivant
 
    End Sub

21/06/2012, 12h49
LILIFA

Browny merçiiiiii sa tourne :ccool: