//OpenDialog获取文件 procedure TForm2.Button1Click(Sender: TObject); begin File_Path:=''; if OpenDialog1.Execute then File_Path:=OpenDialog1.FileName; if Length(File_Path)>0 then Edit1.Text:=OpenDiaLog1.FileName; end;…
local str = "aaa.bbb.bbb.txt" --获取文件名 function getFileName(str) local idx = str:match(".+()%.%w+$") if(idx) then , idx-) else return str end end --获取扩展名 function getExtension(str) return str:match(".+%.(%w+)$") end ngx.say(&q…
<% '获取文件名(不含扩展名) Function getFilename(text)text = Left(text,inStrRev(text,".")-1)getFilename = text End Function '获取扩展名 Function getExtn(text)text = Left(text,inStr(text,".")-1)getExtn = textEnd Function%>…