Jump to content
Patrijosa

separar uma string ...

Recommended Posts

Patrijosa

manos tenho uma textbox na minha aplicação que recebe um número qualquer... mas todos estes números vêm acompanhado de duas constantes no fim...

ou seja, o número 566 quando inserido na textbox, aparece 56601.... a minha questão é como separa-lo de maneira que eu tenha o  566 como valor de uma variável e o 01 como valor de outra variável?

ACTUALIZANDO: Preciso retirar deste número independentemente do comprimento do mesmo, os últimos dois dígitos...

Exemplos:

234567677 = 2345676 e 77

5565656 =  55656 e 56

767676868686868 = 7676768686868 e 68

como separar desse jeito em vb.net

grato pela atenção

cumps

Ps


O verdadeiro sábio é um eterno aprendiz!

http://www.patriciodossantos.net

Share this post


Link to post
Share on other sites
anolsi

Mas tu sabes sempre qual é a constante? Ou sabes sempre que são os dois últimos dígitos?


"Nós somos o que fazemos repetidamente, a excelência não é um feito, e sim, um hábito."
Não respondo a questões por PM que possam ser colocadas no fórum!

Share this post


Link to post
Share on other sites
Patrijosa

Mas tu sabes sempre qual é a constante? Ou sabes sempre que são os dois últimos dígitos?

sei a constante... o que acontece é o seguinte:

- Tenho um cartão com dois código de barras... nestes dois códigos de barra deve aparecer sempre o número do utente + a constante que na parte frontal é 01 e no verso é 02

quero separar destes números as constantes para saber qual lado do cartão foi lido-...

Cumps

PS


O verdadeiro sábio é um eterno aprendiz!

http://www.patriciodossantos.net

Share this post


Link to post
Share on other sites
paulo silva

 Dim valor As String = TextBox2.Text
        valor = valor.Remove(valor.Length - 2, 1)

        MsgBox(valor)

podes fazer qualquer coisa do genero

Cumprimentos Paulo Silva

Share this post


Link to post
Share on other sites
paulo silva

 Dim valor As String = TextBox2.Text
        Dim valor1 As String = TextBox2.Text


        valor = valor.Remove(valor.Length - 2, 2)
        valor1 = valor1.Substring(valor.Length, 2)


        MsgBox(valor1, MsgBoxStyle.Critical, "Ultimos")

        MsgBox(valor, MsgBoxStyle.Critical, "primeiros")

Nesta consegues obter os primeiros numeros e os dois últimos.

Penso que era mais ou menos isto.

Cumprimentos Paulo Silva

Share this post


Link to post
Share on other sites
Patrijosa

valeu

problema resolvido...

Public Class Form1

    Private Sub txt1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txt1.KeyPress
        If e.KeyChar = Chr(13) Then
            Dim valor As String = txt1.Text
            Dim valor1 As String
            Dim valor2 As String

            valor1 = valor.Remove(valor.Length - 2, 2)
            valor2 = valor.Substring(valor.Length - 2, 2)

            txt2.Text = valor1
            txt3.Text = valor2
        End If
    End Sub

Cumps

PS


O verdadeiro sábio é um eterno aprendiz!

http://www.patriciodossantos.net

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.