求助，字符串问题，在线等

Question

J10593170818AH    42108A200806191446350101
我想查看42108 怎么查

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
str:TStringList;
begin
 str:=TStringList.Create;
 s:='J10593170818AH    42108A200806191446350101 ';
 str.CommaText:=s;
 s:=copy(str[1],1,5);
 showmessage(s);
 str.Free;
end;

Answer 2

POS
function Pos(Substr: string; S: string): Integer;

Answer 3

str.CommaText:=s;
这句是什么意思可以告诉我么

Answer 4

http://hi.baidu.com/%CA%AE%D4%AA%BA%EC%C9%BD%B2%E8/blog/item/194675fd37d54e1208244d31.html自已研究一下,我文化水平太低,怕误导了你.

Answer 5

如果位数不固定,可以写一个简单的函数处理:function TForm1.Glstr(s: string; i: integer): string;
var
str:TStringList;
begin
{参数1为传入的字串,参数2为取几位字符返回}
 Result:='';
 str:=TStringList.Create;
 try
 str.CommaText:=s;
 s:=copy(str[1],1,i);
 Result:=s;
 finally
 str.Free;
 end;
end;
调用:procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
 s:='J10593170818AH    42108A200806191446350101 ';
 showmessage(Glstr(s,5));{返回5个字符,并显示出来}
end;

Answer 6

var
  i:Integer;
  s:string ;
  str:TStringList;
begin
  s:='J10593170818AH    42108A200806191446350101 21313aa';
  i:=Pos('42108',s);
  s:=copy(s,i,Length(s));
  str:=TStringList.Create;
  str.CommaText:=s;
  s:=Copy(str[0],1,Length(str[0]));
  showmessage(s);
  str.Free;
end;我觉得是这个意思,,,

Answer 7

嗯,楼上的有道理,如果是这样,就要写成这样了:function InStr(const sShort: string; const sLong: string): Boolean;
var
  s1, s2: string;
begin
  s1 := LowerCase(sShort);
  s2 := LowerCase(sLong);
  Result := Pos(s1, s2) > 0;
end;procedure TForm1.Button1Click(Sender: TObject);
var
s1,s2:string;
begin
  s1:='42108';
  s2:='J10593170818AH    42108A200806191446350101 21313aa';
  if instr(s1,s2) then
  showmessage('找到了')
  else
  showmessage('没有找到相关的字串');
end;

Answer 8

function InStr(const sShort: string; const s:char): string;
var
  s1: string;
  str:TStringList;
begin
 Result := '';
 str:=TStringList.Create;
 try
 str.CommaText:=LowerCase(sShort);
 s1:=copy(str[1],1,pos(LowerCase(s),str[1])-1);
 Result:=s1;
 finally
 str.Free;
 end;
end;procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
s2:char;
begin
s:='J10593170818AH    42108A200806191446350101';
s2:='a';{A是固定的}
showmessage(InStr(s,s2));{传入字符S,返回S2之前的字串}
end;

Answer 9

我直接写的位置
pos（）