Script em VB para Software
Olá pessoal, é sempre um prazer!
Bem Preciso de uma dica Agora de Visual Basic antes que alguem fale que estou no lugar errado deixa eu tentar explicar por favor.
Aqui no trabalho temos um software que pode ser inserido scripts para facilitar a mao de obra dos usuarios só que é feito em VB. o que preciso é o seguinte.
tenho um campo tamanho 5 tipo caracter em DBF quero fazer uma rotina para ir de um a 5 ver na posicao se tiver em branco ou um determinado caracter mudar o valor para outro escolhido por mim isso no delphi seria muito facil,
var
s1,s2:string
i:intger;
begin
s2:=´´;
s1:=table1.fieldbyname(´campo1´).asString;
For i:=1 to 5 do
if (s1<>´´)or(s1[i:40e41232d8]=´A´) then
s2:=s2+s1[i]
else
s2:=s2+´*´;
table1.edit;
table1.fieldbyname(´campo1´).value:=s2;
Table1.post;
end;
O ideia é verificar se na posicao atual está em branco ou preenchido com A e substitui-lo por * depois gravar.
Como isso será inserido dentro do programa em execucao nao preciso acessar nenhuma tabela para me referir ao campo basta o nome do campo pois a tabela dbf é gerada automaticamente pelo software.
Preciso saber como usar o FOR e como inserir valor na possicao certa com Visual Basic.
Como faço parte desta comunidade a muito tempo preferi buscar ajuda primeiro aqui e conto com a boa vontade dos programadores que se encontram porAqui. Um abraco!
Gean Carlos [u:40e41232d8][i][color=blue:40e41232d8]copec@utam.br [/color:40e41232d8][/i:40e41232d8][/u:40e41232d8]
:D
Bem Preciso de uma dica Agora de Visual Basic antes que alguem fale que estou no lugar errado deixa eu tentar explicar por favor.
Aqui no trabalho temos um software que pode ser inserido scripts para facilitar a mao de obra dos usuarios só que é feito em VB. o que preciso é o seguinte.
tenho um campo tamanho 5 tipo caracter em DBF quero fazer uma rotina para ir de um a 5 ver na posicao se tiver em branco ou um determinado caracter mudar o valor para outro escolhido por mim isso no delphi seria muito facil,
var
s1,s2:string
i:intger;
begin
s2:=´´;
s1:=table1.fieldbyname(´campo1´).asString;
For i:=1 to 5 do
if (s1<>´´)or(s1[i:40e41232d8]=´A´) then
s2:=s2+s1[i]
else
s2:=s2+´*´;
table1.edit;
table1.fieldbyname(´campo1´).value:=s2;
Table1.post;
end;
O ideia é verificar se na posicao atual está em branco ou preenchido com A e substitui-lo por * depois gravar.
Como isso será inserido dentro do programa em execucao nao preciso acessar nenhuma tabela para me referir ao campo basta o nome do campo pois a tabela dbf é gerada automaticamente pelo software.
Preciso saber como usar o FOR e como inserir valor na possicao certa com Visual Basic.
Como faço parte desta comunidade a muito tempo preferi buscar ajuda primeiro aqui e conto com a boa vontade dos programadores que se encontram porAqui. Um abraco!
Gean Carlos [u:40e41232d8][i][color=blue:40e41232d8]copec@utam.br [/color:40e41232d8][/i:40e41232d8][/u:40e41232d8]
:D
Ggean
Curtidas 0
Respostas
Aroldo Zanela
15/04/2003
Private Sub Command1_Click()
Dim s1 As String
Dim s2 As String
Dim i As Integer
s2 = ""
s1 = "ABC DEFGHIJKL"
For i = 1 To 5
If s1 <> "" Then
If Mid(s1, i, 1) <> "A" And Mid(s1, i, 1) <> " " Then
s2 = s2 + Mid(s1, i, 1)
Else
s2 = s2 + "*"
End If
End If
Next i
MsgBox "Gravar: " & s2
End Sub
GOSTEI 0