String - VBWEB


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: String

R4pos@o

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 28/02/2008 15:09 hs

Pessoal como faço para difividir uma string dessa forma

servidordados;50

ae preciso dividi-la em duas strings da seguinte forma

string 1 = servidordados

string 2 = 50

vlw

JOM

BOM JESUS DA LAPA
BA - BRASIL

ENUNCIADA !

Postada em 28/02/2008 15:50 hs

string1 = mid(string,"1","13")

string2 = mid(string,"15")

R4pos@o

SÃO PAULO
SP - BRASIL

Postada em 28/02/2008 16:13 hs

nesse caso naum da amigao..pois nem sempre o texto antes do ";" tera 13 caractere

Treze

SÃO VICENTE
SP - BRASIL

ENUNCIADA !

Postada em 28/02/2008 16:37 hs

Colega criei um exemplo simples espero que você entenda

Coloque 01 TEXTBOX, 02 LABELS E 01 COMMANDBUUTON no seu form

agora coloque este código

Private Sub Command1_Click()
Dim PV As Integer
Dim String1 As String
Dim String2 As String

For X = 1 To Len(Text1.Text)
If Mid(Text1.Text, X, 1) = ";" Then
PV = X
Exit For
End If
Next X

String1 = Mid(Text1.Text, 1, PV - 1)
String2 = Mid(Text1.Text, PV + 1, Len(Text1.Text))
Label1.Caption = String1
Label2.Caption = String2
End Sub

Lembrando que este código só vai funcionar se for apenas um ";" se você tiver a intenção de dividir a string com mais de um ";" diga que envio um código pra você

Macaubal
não registrado

ENUNCIADA !

Postada em 28/02/2008 16:56 hs

ha varias maneiras, mas vc pode estar utilizando a função InStr

Variavel1 = mid(Variavel,1,instr(Variavel,",")-1)
Variavel2 = mid(Variavel,instr(Variavel,","))

Como nosso amigo Treze comentou so vai funcionar para o caracter "," caso voce faça a separação por outro caracter é so trocar

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR