变量 文件路径="D:\\1.txt"
变量 文本=数组()
变量 hang= 文件获取行数(文件路径)
调试输出(hang)
变量 键=0
遍历(变量 i = 0; i < hang-1; i++)
变量 判断=0
遍历(变量 j = i+1; j < hang; j++)
如果(文件读指定行(文件路径,i)==文件读指定行(文件路径,j))
判断=1
结束
结束
如果(判断==0)
文本[键]=文件读指定行(文件路径,i)
调试输出(文本[键])
键++
结束
结束
文件覆盖内容(文件路径,文本[0])
遍历(变量 i = 1; i < 键; i++)
文件追加文本(文件路径,"\n"&文本[i])
结束 |