现在有10个文本文件;

Linux2001 2001-12-27 12:47:18

文件名从a-j现在我要把它们的文件名改成1-10的RTF文件,如何写代码啊

...全文

108 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

Linux2001 2001-12-27

打赏
举报

我调用RenameFile函数,它只返回一个Boolean值,但是没有改成功

shxiaoxiao 2001-12-27

打赏
举报

使用RenameFile函数
Unit
SysUtils

Category

File Management Routines

RenameFile changes a file name identified by OldName.

function RenameFile(const OldName, NewName: string): Boolean;

NetFair 2001-12-27

打赏
举报

通过获取文件名的ASCII值，

alec_ma 2001-12-27

打赏
举报

rename

bjwulin 2001-12-27

打赏
举报

调用api函数。

王集鹄 2001-12-27

打赏
举报

procedure TForm1.Button1Click(Sender: TObject);
var
I, J: Integer;
C: Char;
vNewFileName: TFileName;
begin
FileListBox1.Directory := 'C:\'; //<路径>
FileListBox1.Mask := '*.txt';
for I := 0 to FileListBox1.Items.Count - 1 do begin
vNewFileName := UpperCase(ExtractFileName(FileListBox1.Items[I]));
for C := 'A' to 'Z' do
vNewFileName := StringReplace(vNewFileName, C, IntToStr(Ord(C) - Ord('A') + 1), [rfReplaceAll]);
vNewFileName := ChangeFileExt(vNewFileName, '.RTF');
RenameFile(FileListBox1.Directory + '\' + FileListBox1.Items[I],
FileListBox1.Directory + '\' + vNewFileName);
end;
end;

cszhz 2001-12-27