读取文本

fileopen fhandle 'sfcs.txt' 0

    while 1
        ; Read a line from the file.
        filereadln fhandle line
        filereadln fhandle line
        if result=1 then 
              break
        endif

        strsplit line ',' 7
        
        ;MAC
        ;messagebox groupmatchstr1 "MAC"
        ;DPK
        ;messagebox groupmatchstr4 "DPK"
        
        strcopy groupmatchstr1 1 12 Macstr
        strcopy groupmatchstr4 1 12 Dpkstr
        strcopy groupmatchstr7 1 15 IMEI
        ; Repeat until the end of the file.
    endwhile
    ; Close the file.
    fileclose fhandle