SUBSTIRUIR PARTES VARIAVEIS DO TEXTO

EVSAR3 11/03/2011 18:56:42
#367831
Gente, é o seguinte:
Tenho um texto, tipo:
Blá blá blá @PalavraVariável@ continuando blá blá blá @OutraPalavraVariável@ continuando etc e tal etc tal.

Seguinte, o que fica dentro das @ sempre muda, e nunca é uma palavra fixa. O que eu quero é fazer um loop e pegar todas essas palavras e jogar numa matriz. Assim eu posso ter todas guardadas pra que eu possa fazer as tarefas de que preciso.

Valeu gente!
JONATHANSTECKER 11/03/2011 19:33:19
#367833 Resposta escolhida
Faça um Array de String
Exemplo:

Dim Palavra(3) As String
Palavra(0) = [Ô]Jonathan[Ô]
Palavra(1) = [Ô]Stecker[Ô]
Palavra(2) = [Ô]de[Ô]
Palavra(3) = [Ô]Souza[Ô]

MsgBox ([Ô]Meu nome é: [Ô] & Palavra(0) & [Ô] [Ô] & Palavra(1) & [Ô] [Ô] & Palavra(2) &  [Ô] [Ô] & Palavra(3) )
EVSAR3 11/03/2011 19:38:00
#367836
Quem dera fosse tão simples.
Eu tenho um texto, um texto que nem sempre é igual, e nele está contido expressões delimitadas pelo @, e eu tenho que sair catando todas elas e ir jogando na matriz.

Acho que ficou mais compreensivel agora.

Valeu JHONATHAN, espero que tenha entendido meu problema melhor e possa me ajudar.
JONATHANSTECKER 11/03/2011 20:03:17
#367838
POG

Funcionar, funciona...

        Dim Contador As Integer
        Contador = 0
        Dim I As Integer

        Dim Texto As String
        Texto = [Ô]Blá blá blá @PalavraVariável@ continuando blá blá blá @OutraPalavraVariável@ continuando etc e tal etc tal.[Ô]

        Dim Palavra As Variant
        Palavra = Split(Texto, [Ô]@[Ô])

        Dim Palavras(1) As String

        For I = 0 To UBound(Palavra)
            If Left(Palavra(I), 1) <> [Ô] [Ô] And Right(Palavra(I), 1) <> [Ô] [Ô] Then
                Palavras(Contador) = Palavra(I)
                MsgBox(Palavras(Contador))
            End If
        Next
EVSAR3 11/03/2011 20:22:53
#367840
Show!
Eu fiz de outro jeito aqui, também funcionou, mas o seu está mais limpo.

Obrigado.
Tópico encerrado , respostas não são mais permitidas
Voltar