程序代码：

cstr=" how often[]多久一次 exercise['eks2saiz]v.&n.锻炼；运动 skateboard[]v.踩滑板；参加滑板运动 hardly['ha:dli]adv. 几乎不；几乎没有 ever['ev2]adv. 曾；曾经 shop[60p]v.购物 once[w3ns]adv. 一次"
m.s = ''
shuang = .f.
For i = 1 To Lenc(cstr)
    dp = Substrc(cstr,i,1)
    If Len(dp) == 1
        If dp == '['
            m.s = m.s + ",["
        Else
            m.s = m.s + dp
        Endif
    Else
        If shuang = .f.
            m.s = m.s + "," + dp
            shuang = .t.
        Else
            m.s = m.s + dp
        Endif
    Endif
    If shuang == .t. And Len(dp) == 1
        m.s = m.s + Chr(13) + Chr(10)
        shuang = .f.
    Endif
   
Next
Strtofile(m.s,"tt.txt")

Create Cursor temp (单词 c(20),音标 c(20),汉意 c(20))
Append From tt.txt Delimited With Character ','
Browse

程序代码：

Public cstr
cstr=" how often[]多久一次 exercise['eks2saiz]v.&n.锻炼；" + ;
"运动 skateboard[]v.踩滑板；参加滑板运动 hardly['ha:dli]adv. 几乎不；几乎没有" +;
" ever['ev2]adv. 曾；曾经 shop[60p]v.购物 once[w3ns]adv. 一次" + "a"

Public ga_Cstr[7, 3]
Create Table d:\vfp\td\yz\xx (单词 c(8) , 音标 c(8), 注意 c(8))
Use d:\vfp\td\yz\xx

move_head = 1
move_tail = 1

For i = 1 to 7       

        Do while SubstrC(cstr, move_tail, 1) # '['
             move_tail = move_tail + 1
        EndDo

        ga_Cstr[i, 1] = SubstrC(cstr, move_head, move_tail - move_head)
        move_head = move_tail
        *MessageBox(ga_Cstr[i, 1])
        Do while  Between(Asc(SubstrC(cstr, move_tail, 1)), 0, 256)
             move_tail = move_tail + 1
        EndDo           

        ga_Cstr[i, 2] = SubstrC(cstr, move_head, move_tail - move_head)
        move_head = move_tail
        *MessageBox(ga_Cstr[i, 2])
        Do while !islower(SubstrC(cstr, move_tail, 1))
             move_tail = move_tail + 1
        EndDo

        ga_Cstr[i, 3] = SubstrC(cstr, move_head, move_tail - move_head)
        move_head = move_tail   

        *MessageBox(ga_Cstr[i, 3])           

Next


Append From array ga_Cstr
Browse