Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

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

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

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.