回复 8楼 zklhp
一起学习
实现自己既定的目标,必须能耐得住寂寞单干。
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我程序里面是append blank 如果做的不好第二次修改程序运行的话 这句就错了 怎么改好