按键精灵_遍历文本内容

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

Dim 路径 = "/sdcard/Pictures/comment.txt"
TracePrint zb.读取文本内容遍历(路径)