Fórum Delphi x Visual Basic #459702
28/10/2013
0
Pessoal preciso passar o codigo em VB abaixo para delphi, alguem conhece VB ae ?
Private Sub Command2_Click()
Dim AuxTexto As String
AuxTexto = ""
Dim Arq As Long
Dim Linha As String
Arq = FreeFile
Open App.Path & "\retorno.txt" For Input As Arq 'Abre o arquivo para leitura
Do Until EOF(Arq) 'Lê o arquivo ate o fim
Line Input #Arq, Linha 'Puxa o que esta escrito na linha, passando de uma em uma linha
AuxTexto = AuxTexto & Linha 'Adiciona no list
Loop
Close Arq 'Fecha o arquivo
Text1.Text = AuxTexto
AuxTexto = Text1.Text
Text2.Text = ""
cont = 1
For i = 1 To Val((Len(Text1.Text) / 79) + 1)
Text2.Text = Text2.Text & vbCrLf & Mid(Text1.Text, cont, 79)
cont = cont + 79
Next
Text3.Text = Len(Text1.Text)
Text4.Text = Len(Text2.Text)
End Sub
Private Sub Command2_Click()
Dim AuxTexto As String
AuxTexto = ""
Dim Arq As Long
Dim Linha As String
Arq = FreeFile
Open App.Path & "\retorno.txt" For Input As Arq 'Abre o arquivo para leitura
Do Until EOF(Arq) 'Lê o arquivo ate o fim
Line Input #Arq, Linha 'Puxa o que esta escrito na linha, passando de uma em uma linha
AuxTexto = AuxTexto & Linha 'Adiciona no list
Loop
Close Arq 'Fecha o arquivo
Text1.Text = AuxTexto
AuxTexto = Text1.Text
Text2.Text = ""
cont = 1
For i = 1 To Val((Len(Text1.Text) / 79) + 1)
Text2.Text = Text2.Text & vbCrLf & Mid(Text1.Text, cont, 79)
cont = cont + 79
Next
Text3.Text = Len(Text1.Text)
Text4.Text = Len(Text2.Text)
End Sub
Andre Ucella
Curtir tópico
+ 0
Responder
Posts
28/10/2013
Itamar Souza
Pessoal preciso passar o codigo em VB abaixo para delphi, alguem conhece VB ae ?
Private Sub Command2_Click()
Dim AuxTexto As String
AuxTexto = ""
Dim Arq As Long
Dim Linha As String
Arq = FreeFile
Open App.Path & "\retorno.txt" For Input As Arq 'Abre o arquivo para leitura
Do Until EOF(Arq) 'Lê o arquivo ate o fim
Line Input #Arq, Linha 'Puxa o que esta escrito na linha, passando de uma em uma linha
AuxTexto = AuxTexto & Linha 'Adiciona no list
Loop
Close Arq 'Fecha o arquivo
Text1.Text = AuxTexto
AuxTexto = Text1.Text
Text2.Text = ""
cont = 1
For i = 1 To Val((Len(Text1.Text) / 79) + 1)
Text2.Text = Text2.Text & vbCrLf & Mid(Text1.Text, cont, 79)
cont = cont + 79
Next
Text3.Text = Len(Text1.Text)
Text4.Text = Len(Text2.Text)
End Sub
Private Sub Command2_Click()
Dim AuxTexto As String
AuxTexto = ""
Dim Arq As Long
Dim Linha As String
Arq = FreeFile
Open App.Path & "\retorno.txt" For Input As Arq 'Abre o arquivo para leitura
Do Until EOF(Arq) 'Lê o arquivo ate o fim
Line Input #Arq, Linha 'Puxa o que esta escrito na linha, passando de uma em uma linha
AuxTexto = AuxTexto & Linha 'Adiciona no list
Loop
Close Arq 'Fecha o arquivo
Text1.Text = AuxTexto
AuxTexto = Text1.Text
Text2.Text = ""
cont = 1
For i = 1 To Val((Len(Text1.Text) / 79) + 1)
Text2.Text = Text2.Text & vbCrLf & Mid(Text1.Text, cont, 79)
cont = cont + 79
Next
Text3.Text = Len(Text1.Text)
Text4.Text = Len(Text2.Text)
End Sub
Amigo
Basicamente este código esta fazendo a leitura de um arquivo texto e contando as linhas e depois faz um calculo, eu postei um exemplo que faz maios ou menos a mesma coisa:
espero ter ajudado.
procedure TfrmPrincipal.BitBtn1Click(Sender: TObject);
var
slItens, slDados: TStringList;
QtdLinhasTotal, y :Integer;
conteudolinha, sLinha :string;
begin
slItens := TStringList.Create;
slDados := TStringList.Create;
ListBox1.Clear;
slItens.LoadFromFile('caminho do memo');
//quantidade de linha, retirando a 1 linha caso tenha os titulos, se não tiver titulo slItens.Count;
QtdLinhasTotal := slItens.Count - 1;
//comecando a linha 1 ou da linha zero caso seja necessário
for y := 1 to Pred( QtdLinhasTotal ) do
begin
sLinha := slItens[y];
// ShowMessage(sLinha );
Split( sLinha, ';', slDados );
conteudolinha := slDados[0];
//ordena os registros
ListBox1.Sorted := True;
//adiciona os dados
ListBox1.Items.Add(slDados[1]);
end;
slItens.Free;
slDados.Free;
end;
O pulo do gato:
procedure TfrmPrincipal.Split(Str: string; Delimiter: Char; ListOfStrings: TStrings);
begin
ListOfStrings.StrictDelimiter := True;
ListOfStrings.Clear;
ListOfStrings.Delimiter := Delimiter;
ListOfStrings.DelimitedText := Str;
end;
Responder
Gostei + 0
29/10/2013
Andre Ucella
ok, já descobri onde eu estava errando obrigado.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)