求助老师，修改txt文本字符问题

lzw991104

求助老师，修改txt文本字符问题

如何修改C盘名为1.txt文本里的，第一个字符C改为Y

求代码  谢谢大佬

是可可吖

6.e (1 MB, 下载次数: 0)

2025-3-22 18:38 上传

点击文件名下载附件

1.txt (55 Bytes, 下载次数: 0)

2025-3-22 18:38 上传

点击文件名下载附件

这个应该是你需要的了

b0y

.版本 2

.局部变量 bin, 字节集

bin ＝ 读入文件 (“c:\1.txt”)
bin [1] ＝ 89

是可可吖

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
总文本	文本型
文本	文本型

总文本 ＝ 到文本 (读入文件 (“C:\1.txt”))
文本 ＝ 子文本替换 (总文本, “C”, “Y”, , , 真)
写到文件 (“C:\1.txt”, 到字节集 (文本))

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 总文本, 文本型<br /> .局部变量 文本, 文本型<br /> <br /> 总文本 ＝ 到文本 (读入文件 (“C:\1.txt”))<br /> 文本 ＝ 子文本替换 (总文本, “C”, “Y”, , , 真)<br /> 写到文件 (“C:\1.txt”, 到字节集 (文本))

算法艺术家

  

子程序名	返回值类型	公开	备 注
_按钮3_被单击

变量名	类 型	静态	数组	备 注
文件号	整数型

文件号 ＝ 打开文件 (“C:\ABC.txt”, , )
写出文本 (文件号, “Y”)
关闭文件 (文件号)

.版本 2<br /> <br /> .子程序 _按钮3_被单击<br /> .局部变量 文件号, 整数型<br /> <br /> 文件号 ＝ 打开文件 (“C:\ABC.txt”, , )<br /> 写出文本 (文件号, “Y”)<br /> 关闭文件 (文件号)

是可可吖

是可可吖 发表于 2025-3-22 17:46
[e=2].版本 2

.子程序 _按钮1_被单击

lzw991104

是可可吖 发表于 2025-3-22 17:50

大佬，里面是卡密信息，只替换第一个字母C，后面的c不替换 怎么做

是可可吖

lzw991104 发表于 2025-3-22 17:54
大佬，里面是卡密信息，只替换第一个字母C，后面的c不替换 怎么做

寻找文本（）

算法艺术家

lzw991104 发表于 2025-3-22 17:54
大佬，里面是卡密信息，只替换第一个字母C，后面的c不替换 怎么做

子文本替换 第五个参数  可以设置替换次数

是可可吖

lzw991104 发表于 2025-3-22 17:54
大佬，里面是卡密信息，只替换第一个字母C，后面的c不替换 怎么做

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
总文本	文本型
文本	文本型
返回位置	整数型

总文本 ＝ 到文本 (读入文件 (“C:\1.txt”))
返回位置 ＝ 寻找文本 (总文本, “C”, , 假)
如果真 (返回位置 ≠ -1)
文本 ＝ 文本替换 (总文本, 1, 2, “Y”)
写到文件 (“C:\1.txt”, 到字节集 (文本))

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 总文本, 文本型<br /> .局部变量 文本, 文本型<br /> .局部变量 返回位置, 整数型<br /> <br /> 总文本 ＝ 到文本 (读入文件 (“C:\1.txt”))<br /> 返回位置 ＝ 寻找文本 (总文本, “C”, , 假)<br /> .如果真 (返回位置 ≠ -1)<br />     文本 ＝ 文本替换 (总文本, 1, 2, “Y”)<br />     写到文件 (“C:\1.txt”, 到字节集 (文本))<br /> .如果真结束