STRING

USUARIO.EXCLUIDOS 15/03/2005 11:26:51
#73048
Olá gostaria de saber como faço para guardar mais de uma String em uma variável também String.
Ex.
String0 = String0 + String1 + String2

Mas eu preciso q a String0 fique assim: (separadas)
String0 = "String0" and "String2" and "String2"
e não assim:
String0 = "String0 and String2 and String2"

acho q deu pra entender né?

Valew...
RO.DRIGOSG 15/03/2005 11:42:47
#73054
A função que guarda uma string e a função TAG.

Segue um exmplo de pesquisa com esta função:

__________________________________________________________________
Private Sub CmdLocaliza_Click(Index As Integer)
Dim varPesquisa As Variant

On Error GoTo TrataErro
With AdodcEmployee.Recordset
Select Case Index
Case 0
varPesquisa = Val(InputBox("Informe o código do Funcionário", "Pesquisar por Código"))
If varPesquisa = 0 Then Exit Sub
FraLocaliza.Tag = .AbsolutePosition
'A segunda virgula significa que não pula nenhum registro.
'A terceira virgula significa que ele começa a pesquisa em sentido crescente.
'O número 1 significa que ele começa a pesquisa pelo primeiro registro.
.Find "EmployeeID=" & varPesquisa, , , 1
If .EOF Then
.AbsolutePosition = FraLocaliza.Tag
MsgBox "Código não Localizado!!!", vbExclamation + vbOKOnly, "Aviso"
End If
Case 1
varPesquisa = Trim(InputBox("Informe o nome do Funcionário", "Pesquisar por Funcionário"))
If varPesquisa = Empty Then Exit Sub
FraLocaliza.Tag = .AbsolutePosition
.Find "FirstName='" & varPesquisa & "'", , , 1
If .EOF Then
.AbsolutePosition = FraLocaliza.Tag
MsgBox "Nome não Localizado!!!", vbExclamation + vbOKOnly, "Aviso"
End If
Case 2
varPesquisa = Trim(InputBox("Informe o nome do Funcionário", "Pesquisar por Funcionário"))
If varPesquisa = Empty Then Exit Sub
FraLocaliza.Tag = .AbsolutePosition
.Find "FirstName LIKE'*" & varPesquisa & "*'", , , 1
If .EOF Then
.AbsolutePosition = FraLocaliza.Tag
MsgBox "Dado não Localizado!!!", vbExclamation + vbOKOnly, "Aviso"
End If
End Select
End With
Exit Sub
TrataErro:
MsgBox Err.Number & vbCrLf & Err.Description
End Sub
__________________________________________________________________

Espero que isto te ajude em alguma coisa.

Um abraço!
USUARIO.EXCLUIDOS 15/03/2005 15:22:46
#73104
Olá, eu estou trabalhando apenas com variáveis...

Valew...
WEBMASTER 15/03/2005 15:38:31
#73106
Utilize um delimitador ! Por exemplo :


String0 = "String*String2*String3"


Para separar, podes utilizar a função Split.


Dim Sstring as Variant

StringFinal=Split(String0,"*")
MsgBox Sstring(0) & " - " & Sstring(1) & " - " & Sstring(2)


Não lembro-me corretamente da sintáxe da função Split(Estou sem VB aqui), mas deu para entender a lógica, não ?

P.S.: O delimitador no exemplo em questão é o *.
WEBMASTER 15/03/2005 15:47:03
#73107
Desculpe-me !
Um erro ! ::

Substitua StringFinal por Sstring. Ainda assim não sei se trabalhará corretamente, pois como já disse não lembro-me da sintáxe..( Sem VB aqui ^-^ ).
Tópico encerrado , respostas não são mais permitidas
Voltar