用什么函数可从文件名340121790926373.jpg提取到340121790926373字符串?急用!!

Question

用什么函数可从文件名340121790926373.jpg提取到340121790926373字符串?急用!!

Answer 1

var str:string;
begin
    str:='az.exe';
    showmessage(Copy(Str,1,Pos(ExtractFileExt(str),Str) - 1));
end;
回答过啊！

Answer 2

copy('340121790926373.jpg',0,pos('.','340121790926373.jpg')-1);

Answer 3

ExtractFileName  得到文件名ExtractFileExt  得到文件扩展名

Answer 4

来个函数取数字比较通用吧？
function findNUM(s:string):string;
begin
begin
      date:=' ';
    for i:=1 to length(s) do
    begin  if (s[i]>='0')and(s[i]<='9')
    then
           date:=date+s[i];
end;
end;

Answer 5

copy('340121790926373.jpg',0,pos('.','340121790926373.jpg')-1);

Answer 6

你们不觉得我的方法虽然有点异类,但很简单实用吗,
changeFileExt('ddddddddddd.jpg','')
找到这个方法有点得意,爽，哈哈
程序员真够类,建议轻松一会吧

Answer 7

LeftStr(aFileName, Pos('.', aFileName) - 1)

Answer 8

sName := ChangeFileExt(sFileName,'');呵呵 ， yesxwl()，我喜欢你的方法 ：）

Answer 9

哈哈！~我也来一招：StringReplace('340121790926373.jpg','.jpg','',[rpt....]);或者Delete('340121790926373.jpg',16,4);

Answer 10

其实我想楼主的意思是获得文件的名称吧 应该这样
var
 s: string;
begin
 s:=ExtractFileName(ExpandFileName('340121790926373.jpg'));
 s:=Copy(s,1,Length(s)-4);
end;

Answer 11

ExtractFileName  得到文件名ExtractFileExt  得到文件扩展名
  
copy提取字符串