COMO FACO RECORTAR UMA STRING ?

PATRICIALINDA 11/01/2011 16:16:49
#361901
Como faço uma função para ler uma string e recortar um pedaço e jogar em uma variável [txt-color=#e80000]via VBScript [/txt-color]?

Por exemplo, tenho uma função que extrai várias url como mostra abaixo, logo preciso apenas o nome do servidor que sempre vem dentro dos caracteres [Ô]//[Ô] e finaliza com [Ô]/[Ô] faço para recortar apenas o nome em negrito das string abaixo e jogar em uma variável ?

Variavel1 = [Ô]//[txt-color=#0000f0]ServerPrinter2[/txt-color]/Canon (2) P&B iR3200[Ô]
Variavel2 = [Ô]//[txt-color=#0000f0]Server01[/txt-color]/Canon (2) P&B iR3200[Ô]
Variavel3 = [Ô]//[txt-color=#0000f0]ServerImp4[/txt-color]/Canon (2) P&B iR3200[Ô]

Assim a variável só receberá o nome dos servidores:
Variavel1 = [Ô][txt-color=#0000f0]ServerPrinter2[/txt-color][Ô]
Variavel2 = [Ô][txt-color=#0000f0]Server01[/txt-color][Ô]
Variavel3 = [Ô][txt-color=#0000f0]ServerImp4[/txt-color][Ô]
WEBMASTER 11/01/2011 17:12:05
#361908 
valor = split(variavel, [Ô]/[Ô])(0)


O Split espera um separador para uma variavel, a partir dele é retornado um array com as n posições.
TECLA 11/01/2011 20:53:21
#361935 Resposta escolhida 
Dim servidor As String, vetor() As String
servidor = [Ô]//ServerPrinter2/Canon (2) P&B iR3200[Ô]
vetor = Split(servidor, [Ô]/[Ô])
MsgBox vetor(2)
Tópico encerrado , respostas não são mais permitidas
Voltar