| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2023/5/25 9:32:48 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 1）让用free pascal写一个在centos底下遍历目录文件的程序，马上就回复我一个： program DirectoryTraversal; {$mode objfpc}{$H+} uses SysUtils; procedure TraverseDirectory(const APath: string); var SearchRec: TSearchRec; FilePath: string; begin if FindFirst(APath + DirectorySeparator + '*', faAnyFile, SearchRec) = 0 then begin try repeat if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then begin FilePath := APath + DirectorySeparator + SearchRec.Name; WriteLn(FilePath); // 这里可以对每个文件进行处理，例如输出文件路径 if (SearchRec.Attr and faDirectory) = faDirectory then TraverseDirectory(FilePath); // 如果是目录，递归遍历子目录 end; until FindNext(SearchRec) <> 0; finally FindClose(SearchRec); end; end; end; begin TraverseDirectory('/home/fausten/importsgf'); // 替换为你要遍历的目录路径 end. 还在命令行教我怎么编译。 2）在写长的curl带参数shell执行文件的时候，发现参数传不进去。然后问chatgpt，马上告诉我如果要传参，不能用单引号。一试验果然好了，真的很提高工作效率。就是要翻墙，不是很方便。 ---------------------------------------------- - |
|||||
| 作者： |
|
2023/5/25 10:40:19 | ||||
| 1楼： | 在哪？ ---------------------------------------------- - |
|||||
| 作者： |
|
2023/5/25 12:09:06 | ||||
| 2楼： | 要翻墙，www.openai.com ---------------------------------------------- - |
|||||
| 作者： |
|
2023/5/25 12:17:23 | ||||
| 3楼： | 微软的github有copilet的付费版，但是不好用，还是chatgpt用的自由。 ---------------------------------------------- - |
|||||
| 作者： |
|
2023/5/26 16:22:23 | ||||
| 4楼： | 这段代码怎么感觉是windows系统下的 ---------------------------------------------- tuao |
|||||
| 作者： |
|
2023/5/26 20:31:56 | ||||
| 5楼： | 真能机器自动写代码?不过是抄书卖钱而已. ---------------------------------------------- - |
|||||
| 作者： |
|
2023/5/28 12:36:49 | ||||
| 6楼： | windows下是用finddata结构 ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
