如何把后缀名去掉！谢谢！

2002-12-30 04:58:19 401 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

DeDecms织梦如何去掉首页后缀名html 有的人用的是织梦CMS的管理后台会发现不管打开什么页面的链接结尾处都会带有html，有些人会不想要这个东西，尤其是新手不想要却还不知道在哪里能删除，那么CMS教程网给大家总结了四种方法希望能够帮助到刚入手的小伙伴们。1、替换index.php的内容生成动态官方给出的更新说明是替换index.php的内容生成动态,如果首页不需要生成HTML的, 把index.php换成以下代码即可。 2、使用htaccess文件在根目录的.htaccess文件里加入以下代码(目前此方法还是有效的)： DirectoryI 阅读详情

有什么函数可以把后缀名去掉呢？望告知道，谢谢！酬谢！

...全文

逆向选择启示录：一个失败高频策略如何意外跑赢市场本文探讨了高频交易中的逆向选择现象，揭示了一个失败的高频策略如何通过简化意外跑赢市场。通过加密货币市场的实证分析和蒙特卡洛模拟，研究发现低预测性的简单策略反而更具鲁棒性，有效规避了逆向选择风险。文章还提供了小币种做市策略的优化框架和实践建议，为量化交易者提供了宝贵洞见。阅读详情

huiler

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

xiaozhanger 2002-12-31

打赏
举报

都是api，太

fxm611 2002-12-31

打赏
举报

ExtractFileName

wjlsmail 2002-12-30

打赏
举报

写的繁一点
---------------------

function DelFileExt(FileName : String ): string;
var
I,j: Integer;
s : String ;
Source : String ;
begin
Source := FileName ;
j := 0 ;
I := 1 ;
while I <> 0 do
begin
I := Pos('.',FileName) ;
if I = 0 then
begin
I := J ;
Break ;
end
Else
begin
S := Copy(FileName,(i+1),(Length(FileName) - I)) ;
FileName := S ;
j := I + J ;
End;
end;
FileName := Source ;
if I = 0 then Result := FileName
Else
Result := Copy(FileName, 1, I - 1);
end;

wjlsmail 2002-12-30

打赏
举报

我错了:)

wjlsmail 2002-12-30

打赏
举报

阿，文件名中还有 . ? 我天 ~~~~

ahuige 2002-12-30

打赏
举报

wjlsmail(计算机质子) (
你的这个程序没有考虑文件名中有'.'的情况哦?

CityhunterID 2002-12-30

打赏
举报

我认为 wjlsmail(计算机质子) 的不错。

wjlsmail 2002-12-30

打赏
举报

用 ChangeFileExt('FileName','.后缀形式') 最方便

如ehom(？！) 写的

wjlsmail 2002-12-30

打赏
举报

//也去后缀

function DelFileExt(const FileName : String ): string;
var
I: Integer;
begin
i := Pos('.',FileName) ;
if I = 0 then Result := FileName
Else
Result := Copy(FileName, 1, I - 1);
end;

goodloop 2002-12-30

打赏
举报

copy的方法，
先ExtractFileName得到name再name:=copy(name,1,length(name)-4);

liaoqingpeng 2002-12-30

打赏
举报

ExtractFileName(ChangeFileExt(FileName,''));

ahuige 2002-12-30

打赏
举报

楼上写的东西看起来好麻烦。
我说点简单的，
如果你保证后缀是三个字母
fname:=copy(fname,1,length(fname)-4);
如果不能保证是三个就用
for i:=length(fname) downto 1 do
if fname[i]='.' then
begin
id:=i;
exit;
end;
fname:=copy(fname,1,length(fname)-id);

liaoqingpeng 2002-12-30

打赏
举报

ExtractFileName(ChangeFileExt(FileName));

ehom 2002-12-30

打赏
举报

function ChangeFileExt(const FileName, Extension: string): string;
var
I: Integer;
begin
I := LastDelimiter('.' + PathDelim + DriveDelim,Filename);
if (I = 0) or (FileName[I] <> '.') then I := MaxInt;
Result := Copy(FileName, 1, I - 1) + Extension;
end;

SysUtils单元中,改下:

function DelFileExt(const FileName): string;
var
I: Integer;
begin
I := LastDelimiter('.' + PathDelim + DriveDelim,Filename);
if (I = 0) or (FileName[I] <> '.') then I := MaxInt;
Result := Copy(FileName, 1, I - 1);
end;

ehom 2002-12-30

打赏
举报

NewFileName:=ChangeFileExt('C:\a.txt','')

rlongriver 2002-12-30

打赏
举报

ExtractFileName
ExtractFileExt
ExtractFilePath

好象直接就能用啊

liaoqingpeng 2002-12-30

打赏
举报

function ExtractFileNameWithoutExt(const FileName: string): string;
var
iBegin, iEnd: Integer;
begin
iBegin := LastDelimiter(PathDelim + DriveDelim, FileName);
iEnd := LastDelimiter('.' + PathDelim + DriveDelim, FileName);
if (iEnd > 0)and(FileName[iEnd] = '.') then
Result := Copy(FileName, iBegin+1, iEnd-iBegin-1)
else
Result := Copy(FileName, iBegin+1, MaxInt);
end;

wuweijie 2002-12-30

打赏
举报

ExtractFileName
ExtractFileExt
ExtractFilePath

happyzsl 2002-12-30

打赏
举报

还要去掉点号

happyzsl 2002-12-30

打赏
举报

ExtractFileName
ExtractFileExt
ExtractFilePath

配合着用,
文件名－文件扩展名

加载更多回复（1）

如何把后缀名去掉！谢谢！

相关推荐