Mid
Mid(Texto AS String, Inicio AS Integer, [Quant AS Integer]) As Sring
Retorna uma parte da string, onde o argumento Inicio especifica a posição onde começar e o
argumento Quant a quantidade de caracteres a ser devolvido.
No exemplo a seguir especificamos a posição 3, ou seja, inicia na letra "m" e uma quantidade
de 2 caracteres.
01 Public Sub Main()
02
Print Mid("Gambas", 3, 2) 'mb
03 End
Se não especificarmos o argumento Quant a string é devolvida a partir da posição especificada,
ou seja, tudo depois da posição 3, letra "m".
01 Public Sub Main()
02
Print Mid("Gambas", 3) 'mbas
03 End
Se o argumento Quant for negativo é retirado esta quantidade do final da String e o restante, a
partir da posição especificada pelo argumento Inicio é devolvido.
01 Public Sub Main()
02
Print Mid("Gambas", 2, -1) 'mbas
03 End
Mid também pode ser usada para modificar o conteúdo de uma variável string, ou seja, o
conteúdo da variável será substituída internamente, na posição especificada pelo argumento
Inicio e na quantidade de caracteres especificado por Quant.
Mid(Variavel, Inicio AS Integer, [Quant AS Integer]) = Expressão
No exemplo a seguir foram substituídos os caracteres "mb" por "XX", isso porque o argumento
Quant é 2 o mesmo valor que a quantidade de caracteres da expressão "XX".
01 Public Sub Main()
02 Dim Variavel As String = "Gambas"
03
Mid(Variavel, 3, 2) = "XX"
04
Print Variavel 'GaXXas
05 End
Se Especificarmos 1 para o argumento Quant então 1 caractere da variável será substituído
pela expressão. Neste caso o argumento Quant determina quantos caracteres da variável serão
substituídos pela expressão.
10
No exemplo a segui um caractere é substituído pela expressão contendo quatro caracteres
"XXXX".
01 Public Sub Main()
02 Dim Variavel As String = "Gambas"
03
Mid(Variavel, 3, 1) = "XXXX"
04
Print Variavel 'GaXXXXbas
05 End
Replace
Resultado = Replace(Texto, Procura, Repassa [, Modo])
Localiza na String Texto, ocorrências iguais as especificadas no argumento Procura, substitui
todas os caracteres encontrados pela cadeia de texto contido no argumento Repassa e retorna o
resultado.
01 Public Sub Main()
02
Print Replace("Gambas", "a", "XX") 'GXXmbXXs
03 End
Se a string Texto é nula, então retorna uma string nula.
Print Replace("", "a", "XX")
Se o argumento Parocura é nulo, então toda a String Texto é retornada.
Print Replace("Gambas", "", "XX") 'Gambas
Para localizar ocorrências e não diferenciar maiúsculas de minúsculas, devemos especificar
Modo igual a gb.IgnoreCase.
Print Replace("Gambas", "A", "XX", gb.IgnoreCase) 'GXXmbXXs
Scan
Array = Scan(Texto AS String, Padrao AS String)
Localiza em uma String a sequência especificado no padrão, e retorna uma matriz de todas as
cadeias associadas com o caráter curinga. Os caracteres coringas utilizados são os mesmos que
a instrução Like utiliza.
01 Public Sub Main()
02
Dim Matriz As String[]
03
Matriz = Scan("Gambas", "*a*")
04
Print Matriz[0] 'G
05
Print Matriz[1] 'mbas
06 End
11