xuanfeng1234567 发表于 2011-7-17 20:45:09

记事本 点保存 如何替换原有的数据

本帖最后由 xuanfeng1234567 于 2011-7-17 20:47 编辑

这里面的内容是读取某个TXT文件所得到的。 如果我现在把这里面的数据改动一下。然后点保存。 请问 怎么做？ 才能让这个TXT文件的里的内容变成我改动后的内容呢？
希望大大们给段代码演示一下！

3mile 发表于 2011-7-17 20:49:30

filewrite("xxx.txt",guictrlread($EDIT))

xuanfeng1234567 发表于 2011-7-17 22:38:18

回复 2# 3mile
那请问 这些不同的文件名字。 我应该这么去获取这些文件名字。 很显然 完整的（路径+名字）可以获取到了。但水平有限，不晓得这么得到 最后一个"\"后面的这文件名！

fankcer 发表于 2011-7-18 08:11:30

我的办法是，先用 $result = StringInStr("路径+名字","\",0,-1) 得到最后一个“\”的位置，再用 StringMid("路径+名字",$result+1) 取得文件名

netegg 发表于 2011-7-18 13:19:16

本帖最后由 netegg 于 2011-7-18 13:23 编辑

回复 3# xuanfeng1234567
Func _pathgetfilename($filefullpath)
        If stringinstr(FileGetAttrib($filefullpath), 'D') Then
                SetError(1,0,0)
        Else
                local $ret = StringSplit($filefullpath, '\')
                Return $ret[$ret]
      EndIf
EndFunc       
页: [1]
查看完整版本: 记事本 点保存 如何替换原有的数据