怎样实现文件重命名？（不是简单的问题）(100分)

E

ebcool

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-13

• #1

1、用什么函数可以取得文件名？（不含后缀名）

2、怎样把文件名中指定字符替换成另一字符？ 例如，把hello.exe改为heyyo.exe

3、如何确定文件名第2个字符是什么字符？ 例如hello.exe第2个字符是e

我想实现的设想是：取得文件名，查找文件名中合条件的字符，把字符修改成所需要的字符。

用最精简代码实现

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-13

• #2

1.很奇怪呀，我是不知道你的意思？
2.rename()函数
3.用pos函数

 

Y

yanghaijun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-13

• #3

1.Rename()
2.StringReplace()
3.Pos()

 

S

soonstar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-13

• #4

就是，別把問題想得太復雜，要住簡單裡想。用上面幾個函數就可以解決你的問題了

 

F

forme

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-13

• #5

同意喽

 

太

太阳火

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-13

• #6

1. 用ExtractFileName, ExtractFilePath, ExtractFileExt 等函数;
2. Rename 函数
3. 设filename是string,第二个字母就是filename[2]

 

E

ebcool

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-14

• #7

烦请各位给具体的例子来，我找不到使用法...

 

E

ebcool

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-14

• #8

最后一问。。搞定了结束并放分

如何取得一个字符串中倒数第5个字符到倒数第8个字符的3个字符？？？？？请给出例子

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-14

• #9

Copy(s, Length(s)-8+1, 3)

 

I

iloveqq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-14

• #10

1.function GetfileN(filename:string):string;
var
tempstr:string;
begin
tempstr:=extractfileext(filename);
if tempstr='' then
begin
result:=filename;
end else
begin
result:=copy(filename,1,length(filename)-length(tempstr));
end;
end;



2.//替换字符串中子串的函数
function repl_substr( sub1, sub2, s: string ): string;
var i: integer;
begin
repeat
i := pos( sub1, s ) ;
if i > 0 then begin
delete( s, i, Length(sub1));
insert( sub2, s, i );
end;
until i < 1;
Result := s;
end;

3。copy（str,length(str)-7,3)

 

E

ebcool

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-14

• #11

多人接受答案了。