COMPLETANDO UM TEXTO COM "ZERO"
Boa tarde Pessoal,
Gostaria de completar um texo com zeros.
Exemplo:
Meu Textos:
1º linha: 000000007000180000000000001260000000000000000000000000
2º linha: 00000000700018000000000000126000000000000000000000000000000000000
Como eu preciso deixar estes textos:
1º linha: 00000000700018000000000000126000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
2º linha: 00000000700018000000000000126000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
Conclusão: Preciso completar cada linha com 216 caracteres, independente do nº de caracteres que já possuir, se estiver com 10 preciso completar com + 206 "zeros", se estiver com 200 preciso completar com 16 "zeros" e assim sucessivamente.
Espero que vcs entendem o meu problema
Fico no aguardo
grato
Pierre
Gostaria de completar um texo com zeros.
Exemplo:
Meu Textos:
1º linha: 000000007000180000000000001260000000000000000000000000
2º linha: 00000000700018000000000000126000000000000000000000000000000000000
Como eu preciso deixar estes textos:
1º linha: 00000000700018000000000000126000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
2º linha: 00000000700018000000000000126000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
Conclusão: Preciso completar cada linha com 216 caracteres, independente do nº de caracteres que já possuir, se estiver com 10 preciso completar com + 206 "zeros", se estiver com 200 preciso completar com 16 "zeros" e assim sucessivamente.
Espero que vcs entendem o meu problema
Fico no aguardo
grato
Pierre
bom isso é simples...
Public cont As integer
public i As Integer
Public palavra As String
palavra = Trim(text1.text)
cont = Len(palavra)
for i = cont to 216
palavra = palavra & "0"
next
text1.text = palavra
Ta ai, pega a logica e coloca em que tu precisar.
Public cont As integer
public i As Integer
Public palavra As String
palavra = Trim(text1.text)
cont = Len(palavra)
for i = cont to 216
palavra = palavra & "0"
next
text1.text = palavra
Ta ai, pega a logica e coloca em que tu precisar.
Amigo faço teste, mais acho que ele vai adicionar um ZERO a mais...
entao em vez de 216 vc coloca <for i = cont to 215>
Confere ai... a logica é essa
entao em vez de 216 vc coloca <for i = cont to 215>
Confere ai... a logica é essa
Por questões de OTIMIZAÇÃO de codigo, é melhor usar
FOR I, DO WHILE E ETC, Só quando realmente não tiver outra saÃda...
Neste caso faça como o amigo BARROS colocou..
FOR I, DO WHILE E ETC, Só quando realmente não tiver outra saÃda...
Neste caso faça como o amigo BARROS colocou..
Valeu Barros, perfeito...
Vcs sabem como faço para localizar uma determinada palavra em um texto?
grato
Pierre
Vcs sabem como faço para localizar uma determinada palavra em um texto?
grato
Pierre
A função InStr retorna a posição de um caracter/sequencia dentro de outra.
Exemplo
msgbox instr(1, "A", "EU JA VI VOCE")
Exemplo
msgbox instr(1, "A", "EU JA VI VOCE")
Velho, este exemplo naum funcionou:
msgbox instr(1, "A", "EU JA VI VOCE")
Ele retorna "0"
No aguardo
Pierre
msgbox instr(1, "A", "EU JA VI VOCE")
Ele retorna "0"
No aguardo
Pierre
é o inverso!
msgbox Instr( 1, "EU JA VI VOCE", "A")
msgbox Instr( 1, "EU JA VI VOCE", "A")
Funcionou Barros, mas só me retorna o nº 5 eu preciso saber se existe a palavra vc tem algo parecido?
No aguardo
Pierre
No aguardo
Pierre
Tópico encerrado , respostas não são mais permitidas