Probléme de conversion

**LILIFA** · 19/06/2012, 14h10

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

Code :

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

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 :

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

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

Merçi

**BenoitM** · 19/06/2012, 14h28

bon si j'ai bien compris "CC_001" est ta chaine d'entrer mais tu veux obtenir quoi?

**LILIFA** · 19/06/2012, 14h38

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

**BenoitM** · 19/06/2012, 14h45

Code :

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

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

**LILIFA** · 19/06/2012, 15h02

Ca génère une erreur :

La conversion de la chaine "C" en integer n'est pas valide.

**Pelote2012** · 19/06/2012, 15h06

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

**shayw** · 19/06/2012, 15h13

Salut

Code :

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

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

**Pelote2012** · 19/06/2012, 14h58

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

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
<%@ 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 :

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
 
 
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...

Probléme de conversion

VB.NET

Vue hybride

Discussions similaires

Partager

Partager