程序代码：

MODIFY PROJECT d:\vfp\myvfp\exersice\st.pjx
Create Table jd (编号 c(12), 分类代码 C(6), 名称 c(20))
Use jd
Browse
Modify Command AddContent
do AddContent

程序代码：

Public name[11]
name[1] = '中牌楼'
name[2] = '康居里'
name[3] = '乔虹苑'
name[4] = '集虹苑'
name[5] = "xxx"
name[6] = '武定新村'
name[7] = '旭光里'
name[8] = '岗虹苑'
name[9] = '扇骨里'
name[10] = '枫丹白露'
name[11] = '怡謦花园'

Select jd
For i = 1 to 11
    Local a, b, c as Character
    a = "320104001" + Padl(i, 3, '0')
    b = '111'
    c =  name[i] + '社区居委会 '
    If i # 5
        Append Blank
        replace 编号 with a, 分类代码 with b, 名称 with  c
    EndIf

Next 

程序代码：

Clear All
Close Databases

*Public  gaStree[20]
Open Database 街道
*Create Table JD_One name '关于城乡街道的信息'  ;          && 创建一个自由表

 *(街道编号 C(16) Primary Key, 分类代码 C(8), 街道名称 C(24))


 Use JD_One

 lcStr = FileToStr("街道信息.txt")
ALines(gaStree,  lcStr, Chr(13))
For i = 1 to 12
    ALines(result, gaStree[i], ' ', ' ')
    List Memory like result
    Append Blank
    If i == 1 .or. i == 2
        replace 街道编号 with result[1], ;
               分类代码 with Replicate(' ', 8),;
               街道名称 with result[2]
    Else    

        replace 街道编号 with result[1], ;
               分类代码 with Padl(result[2], 8, ' '),;
               街道名称 with result[3]       

    EndIf

Next

browse