2009/05/22

1.目標功能

////////////////////////////////////////////////

//定義測試操作文件所在的全路徑宏
#define FILE_PATH "D:\ Temp\"
sub main(LIST& cpl) //進程主函數(shù)
{
//函數(shù)定義局部變量
FILE l_FILEVar
int l_intModeVar, l_intFileIDVar, l_intRetVar, l_intPosVar
string l_stringFileName, l_stringName, l_stringLineVar
bool l_boolIsGlobalVar

//給文件名變量賦值
l_stringName = "aaa.txt"
//合成文件名的絕對路徑，是CTSYS.exe所運行機器上的路徑
StrCatEx(l_stringFileName, FILE_PATH, l_stringName)

//以追加寫方式打開文件,如果文件不存在，則創(chuàng)建并打開
l_intModeVar = 1
StrCatEx(l_stringFileName, FILE_PATH, l_stringName)
l_FILEVar.OpenFile(l_stringFileName, l_intModeVar, l_intFileIDVar,
l_boolIsGlobalVar, l_intRetVar)
//設(shè)置輸出內(nèi)容
l_stringLineVar = "abcdef"n""
//寫內(nèi)容到文件中
l_FILEVar.WriteLine(l_stringLineVar, l_intRetVar)
//…
l_stringLineVar = ""
l_intPosVar = 0
//修改文件指示器指示到文件開始位置
l_FILEVar.SeekFile(l_intPosVar, l_intRetVar)
//從文件當前位置讀一行內(nèi)容
l_FILEVar.ReadLine(l_stringLineVar, l_intRetVar)
Log(DBG, l_stringLineVar)
//…
//關(guān)閉文件對象
l_FILEVar.CloseFile()

CTI論壇報道