扬州三丁包子东乡羊肉 这个不手功处理如何办

不好意思，复制粘贴失误！我的意思是文本文件中保留各市名称，如果每市特色小吃数目不一样，可有办法设计通用代码，盼指点，谢谢！！！

问题还真存在，7楼就提醒过。

修改版

CLEAR
CREATE CURSOR tsxc (苏州 C(20),南通 C(20),连云港 C(20),淮安 C(20),泰州 C(20),南京 C(20),无锡 C(20),徐州 C(20),常州 C(20),盐城 C(20),扬州 C(20),镇江 C(20),宿迁 C(20))
FOR ln = 1 TO 20
    APPEND BLANK 
ENDFOR
TEXT TO lcStr NOSHOW
苏州 南通 连云港 淮安 泰州
苏州糕团 西亭脆饼 花果山风鹅 盱眙龙虾 泰州烫干丝
卤汁豆腐干 林梓潮糕 东方对虾 淮安茶撒 黄桥烧饼
昆山奥灶面 一柱楼烧饼 文思豆腐 涟水鸡糕 靖江肉脯
苏式鲜肉月饼 金钱萝卜饼 蒸花蟹 活鱼锅贴 姜堰酥饼
糖粥 芙蓉藿香饺 蟹黄煨鱼肚 文楼汤包 泰州鱼汤面
枫镇大面 翡翠文蛤饼 小鱼煎饼 淮安阳春面 蟹黄汤包
苏州蟹壳黄 曹公面 虾婆饼 荠菜包 宣堡小馄饨
酒酿饼 如皋董糖 板浦凉粉 朝牌饼 漆潼鱼饼
苏式蜜饯 白蒲茶千 沙光鱼 淮安豆腐卷 親子粥
111111  222222
   333333
南京 无锡 徐州 常州
盐水鸭 酱排骨 徐州把子肉 常州大麻糕
鸭血粉丝汤 无锡小笼包 徐州辣汤 常州银丝面
龙袍蟹黄汤包 无锡三鲜馄饨 徐州烙馍 溧阳风鹅
桂花糖芋苗 无锡油面筋 八股油条 常州汤团
南京梅花糕 无锡糖芋头 羊肉滑脊 常州芝麻糖
状元豆 江阴马蹄酥 蛙鱼 常州三鲜馄饨
牛肉锅贴 萝卜丝饼 沛县冷面 常州素火腿
什锦豆腐涝 酒酿棉子圆 八义集臭豆腐 加蟹小笼包
南京板鸭 玉兰饼 贾汪盐豆 常州虾饼
盐城 扬州 镇江 宿迁
东台鱼汤面 扬州炒饭 镇江肴肉 溜素桂鱼
建湖藕粉圆 扬州烫千丝 锅盖面 膘鸡
阜宁大糕 扬州三丁包子 东乡羊肉 新袁羊肉
伍佑糖麻花 黄桥烧饼 京江脐 隆贡酥
盐城鸡蛋饼 千层油糕 镇江糖醋萝卜干 大闸蟹
滨海五粮粥 翡翠烧麦 镇江糖醋蒜 擀面皮
盐城蟹黄汤包 牛皮糖 麻油撒子 双皮鲫鱼
大冈脆饼 扬州灌汤包 镇江蟹黄汤包 霸王别姬
野鸭灌汤包 扬州盐水鹅 延陵鸭饺 车轮饼
ENDTEXT

LOCAL laName[3]
laName[1] = "苏州 南通 连云港 淮安 泰州"
laName[2] = "南京 无锡 徐州 常州"
laName[3] = "盐城 扬州 镇江 宿迁"
ALINES(laStr, lcStr,CHR(13)+CHR(10))
FOR ln1 = 1 TO ALEN(laStr, 1)
    ALINES(la1, laStr[ln1], SPACE(1))
    IF INLIST(laStr[ln1], laName[1], laName[2], laName[3])
        lcName = CHRTRAN(laStr[ln1], SPACE(1), ",")
        lnRow = 0
    ELSE
        lnRow = lnRow + 1
        DIMENSION la1[1, ALEN(la1, 1)]
        GO lnRow
        GATHER FROM la1 FIELDS &lcName 
    ENDIF
ENDFOR
BROWSE 

原始数据格式忒不规范，既不好处理也没法扩展，楼主努力的方向应该是说服按规范格式提供txt文件

简单像这样就行：
南京:盐水鸭,鸭血粉丝汤,龙袍蟹黄汤包,桂花糖芋苗,南京梅花糕,状元豆,牛肉锅贴,什锦豆腐涝,南京板鸭
苏州:.......

还可以进一步规范点：
{城市:"南京",特色小吃:"盐水鸭,鸭血粉丝汤,....,南京板鸭"}

以后要扩展包括其他特色项目也很简单，例如：
{城市:"南京",特色小吃:"盐水鸭,鸭血粉丝汤,....,南京板鸭",著名景点:"中山陵,明孝陵,夫子庙,...."}

这样格式的数据就既好扩展也好处理

[此贴子已经被作者于2023-2-7 18:51编辑过]

先看看数据是从哪里来的

非常感谢各位的热心指点，受益匪浅，收获满满！一定抽空认真学习、领会、消化。

[此贴子已经被作者于2023-2-8 02:12编辑过]