Question

如何转换delphi代码---到---VB

procedure TForm1.Button1Click(Sender: TObject);
var
i,s,posx,posy,posz,posr:integer;
locX,locy,locz:string;
Linetemp:string;
F:textfile;
begin
if self.OpenDialog1.Execute then
assignfile(F,opendialog1.FileName)
else
exit;
reset(F);
locx:='0';
locy:='0';
locz:='0';
while not eof(F) do
begin
readln(f,Linetemp);
posx:=pos('X',Linetemp);
posy:=pos('Y',Linetemp);
posz:=pos('Z',Linetemp);
posr:=pos('R',Linetemp);
s:=length(Linetemp);
//获取X轴坐标
if posx<>0 then
begin
locx:='';
for i:=posx+1 to (s-1) do
begin
if ( Linetemp[i]in['A'..'Z']) or (Linetemp[i] in ['a'..'z']) then
break ;
locX:=locX+Linetemp[i];
end;
end
else
locX:=locx;
//获取Y轴坐标
if posy<>0 then
begin
locy:='';
for i:=posy+1 to (s-1) do
begin
if ( Linetemp[i]in['A'..'Z']) or (Linetemp[i] in ['a'..'z']) then
break ;
locy:=locy+Linetemp[i];
end;
end
else
locy:=locy;
//获取Z轴坐标
if posz<>0 then
begin
locz:='';
for i:=posz+1 to (s-1) do
begin
if ( Linetemp[i]in['A'..'Z']) or (Linetemp[i] in ['a'..'z']) then
break ;
locz:=locz+Linetemp[i];
end;
end
else
locz:=locz;
//增加记录
self.Memo1.Lines.Add(locx+' '+locy+' '+locz);
end;
end;

上面是一段delphi代码,哪个会delphi,请帮我转成VB代码一下,谢谢.

若以下回答无法解决问题，邀请你更新回答

Answer 1

有点看到头晕,读取的文件几乎都是输出0,有什么作用,有点难看出来

Answer 2

这个有什么用呢？我会Delphi可是我不会VB