地址的格式不一样，但内容含义是一样的。。

来源：百度知道 编辑：UC知道 时间：2024/06/24 00:26:02
在foxpro地址栏中如何找出格式不一样，但内容含义是一样的地址。
示例：
如 花园新村22幢105室
花园新村22栋105室
花园新村22-105#
请大家帮忙解决啊，谢谢啦！用什么命令？

1.把,从地址中去掉
2.把村、幢、栋、室、-、#都换成,
3.取出这三个词,分别附加村、幢、室后连接。
这样处理后，上述三个地址就会是一样的了。

示例代码如下
Local cTestData,iLine,cLine
Text To m.cTestData TextMerge NoShow
花园新村22幢105室
花园新村22栋105室
花园新村22-105#
EndText

For m.iLine = 1 To Memlines(m.cTestData)
m.cLine = Mline(m.cTestData,m.iLine)
m.cLine = Chrtran(m.cLine,' ','')
m.cLine = ChrtranC(m.cLine,'村幢栋室-#',',,,,,')
m.cLine = GetWordNum(m.cLine,1,',') + '村' ;
+ GetWordNum(m.cLine,2,',') + '栋' ;
+ GetWordNum(m.cLine,2,',') + '室'
?m.cLine
Next