Function 文本内容(路径) Dim 读取结果 = File.ReadLines(路径) Dim 行数 = File.linesnumber(路径) TracePrint "一共有"&行数&"行" For Each 每行内容 in 读取结果 TracePrint 每行内容 Next End Function
Dim 路径 = "/sdcard/Pictures/comment.txt" TracePrint zb.读取文本内容遍历(路径)
Function 文本内容(路径) Dim 读取结果 = File.ReadLines(路径) Dim 行数 = File.linesnumber(路径) TracePrint "一共有"&行数&"行" For Each 每行内容 in 读取结果 TracePrint 每行内容 Next End Function
Dim 路径 = "/sdcard/Pictures/comment.txt" TracePrint zb.读取文本内容遍历(路径)