Kannst du am besten selbst mit die pos und copy function rumspielen
also pos ist um die position von einem string auf zu suchen und copy um einen string aus einen string zu kriegen.
Eine vorbild:
Ich muß diese zeile: "Serial Number","IJF724580S"
haben, aber dann ohne die ' " ' und ' , ' lesezeichen.
Ich habe diese zeile in den string filestring stehen.
Ich hab mich eine function selbst gemacht womit ich suchen kan von eine bestimmte position
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| function Getpos (parstring:String;Beginp:integer;Searchstr:String):integer;
var
tempstring:String;
begin
tempstring := copy(parstring,Beginp,Length(Filestring)-Beginp);
if pos(Searchstr,tempstring)=0
then Getpos:=0
else Getpos := pos(Searchstr,tempstring) + Beginp;
end; |
Dan kann ich in diese function die zeile rauskriegen:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| function GetSerial:String;
var
Serpos,kompos,begpos,endpos:integer;
begin
Serpos:=pos('"Serial Number"',Filestring);
kompos:=getpos(Filestring,Serpos,',');
begpos:=getpos(Filestring,kompos,'"');
endpos:=getpos(Filestring,begpos+1,'"');
GetSerial:='Serial: '+copy(Filestring,begpos,endpos-(begpos+1));
end; |
Hoffe das hilft,
Cause even though I know things won't get any better, they can certainly never get much worse!
aber hoffentlich ihr 
Wenn das Problem behoben ist habe ich noch 2 Fragen, aber dazu später.
