TC文件写配置的路径。 (转)

剑仙十号

TC文件写配置的路径。
(转)

看到这篇文章很好，转载一下。大家共同学习共同进步。
楼主 陌上青衣。
文件写配置(1,2,3,".\\配置.ini")
文件读配置()

看到很多人 文件写配置 用到相对路径。写完之后，找不到配置文件了。怎么办？
我们知道TC有很多种路径,准确的说是相对路径。
1. rc:路径。总所周知这个是TC的资源路径,在TC生成后会打包进EXE里面
2 ".\\" 单点加双反斜杠，这个是什么路径呢？
3"..\\" 双点加双斜杠，这个是什么路径呢？
.
.
4.当前路径,
5.程序路径,  
6.什么时候当前路径和程序路径是一致的,什么时候又不是一致的呢?
//
//
用TC5.5运行编写的代码，当前路径就是TC5.5的安装路径，程序路径也是TC5.5的安装路径。
用“生成的程序”运行编写的代码，当前路径就是“生成的程序”所在的路径，程序路径也是“生成的程序”所在的路径。
//
不知道的同学,用代码建立一个文件夹。
先在TC开发环境中，用F5调试按F8，找找建立的文件夹在哪里。
//
再点击生成。打开编译好的程序按F8，找找建立的文件夹在哪里。
var ret=文件夹创建(".\\文件夹_在当前目录建立")
消息框(ret)
var ret2=文件夹创建("..\\文件夹_在上一级建立")
消息框(ret2)
回复


.\\是当前目录
..\\是当前目录的上一级目录


消息框(系统获取进程路径())//这个是新建的文件的路径。
消息框(系统获取工作路径())//这个是安装程序的路径。

joker3

好东西，收藏先，谢谢分享

dosbook

在对文件读写操作中路径无效


功能 保存配置_点击()
    变量 rett=系统获取工作路径()
    变量 路径=字符串替换(rett,"\\","/")
    调试输出(路径&"Config.txt")     
    文件创建(路径&"Config.txt","rw")
    变量 Index =  文件打开(路径&"Config.txt","rw")
    变量 fd = 文件打开(路径&"Config.txt")
    调试输出(fd)
    变量 r_row, r_col
    表格获取大小("表格",r_row, r_col)
    遍历 (变量 i=1;i<=r_row;i++)
        变量 ret=表格获取内容("表格",i,0)
        变量 reto=表格获取内容("表格",i,1)
        变量 retarr,retarro
        变量 m = 字符串分割(ret,"\"",retarr)
        变量 mm = 字符串分割(reto,"\"",retarro)
        遍历(变量 k=0;k < m;k++)
            调试输出(k&"="&retarr[k])
            调试输出(k&"="&retarro[k])
            如果 (retarr[0]=="")  //就是要找的特定字符
                调试输出(retarr[0])   
                文件关闭(fd)
                return 0/1  //退出函数
            否则
                //                文件指定行插入(Index,retarr[0]&"<-->"&retarro[k],i)               
                变量 b = retarr[0]&"<-->"&retarro[0]
                文件指定行插入(路径&"Config.txt",b,i)
                调试输出(b)
            结束
        结束
    结束
    文件关闭(fd)
结束

帮看一下问题出在哪

dosbook

dosbook 发表于 2021-12-30 19:31
在对文件读写操作中路径无效

功能 保存配置_点击()
    //初始化开始>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    变量 re=注册插件("Lazy.LxjExcel",真)
    插件("Lazy.LxjExcel")
    变量 Plugin = 插件("Lazy.LxjExcel")
    调试输出("注册懒人插件")
    //插件注册完成-----------------------------------------------------  
    变量 路径=系统获取工作路径()
    调试输出(路径&"Config.xlsx")
    变量 Index = Plugin.LazyOffice.ExcelOpen(路径&"Config.xlsx",0)||等待(500)  //变量 path=文件打开(路径,1)  打开excel,1为可见,0为不可见
    变量 r_row, r_col
    表格获取大小("表格",r_row, r_col)
    遍历 (变量 i=1;i<=r_row;i++)
        变量 ret=表格获取内容("表格",i,0)
        变量 reto=表格获取内容("表格",i,1)
        变量 retarr,retarro
        变量 m = 字符串分割(ret,"\"",retarr)
        变量 mm = 字符串分割(reto,"\"",retarro)
        遍历(变量 k=0;k < m;k++)
            调试输出(k&"="&retarr[k])
            调试输出(k&"="&retarro[k])
            如果 (retarr[0]=="")  //就是要找的特定字符
                调试输出(retarr[0])   
                Plugin.LazyExcel.ExcelClose(Index)
                return 0/1  //退出函数
            否则   
                Plugin.LazyOffice.ExcelWrite(1, i, 1, retarr[0],Index)
                Plugin.LazyOffice.ExcelWrite(1, i, 2, retarro[0],Index)  
                //                调试输出(retarr[0])
                //                调试输出(retarro[0])
                Plugin.LazyExcel.ExcelSave(Index)
            结束
        结束
    结束
    Plugin.LazyExcel.ExcelClose(Index)
结束

写表格操作是成功的但是写文本文件只能用绝对路径  用相对路径就写不到文本里面去