Foxtable(狐表)用户栏目专家坐堂 → 逗号 的疑问----狐爸请进


  共有8079人关注过本帖平板打印复制链接

主题:逗号 的疑问----狐爸请进

帅哥哟,离线,有人找我吗?
卧美吻花
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:187 积分:1469 威望:0 精华:0 注册:2012/6/8 9:34:00
逗号 的疑问----狐爸请进  发帖心情 Post By:2012/12/16 0:09:00 [只看该作者]

这事还真有点麻烦了,请狐爸帮帮忙看看

淘宝上,买家信息里面,地址是这个样子的

马云 ,13905710000 ,0571-88888888 ,浙江省 杭州市 下城区 不知所云大道 搞不清楚公司 ,120022

注意,是使用中文的“逗号”来做字段的区分
然后我写了一段代码来分别读取各个字段

问题来了:在命令窗口也好,代码编写的任何位置也好,无法输入中文的逗号“,”
还有,就算把上述那段代码,复制到命令窗口里面去,系统也自动的把中文的逗号用英文逗号给取代了

请问
如何在命令编辑器里面,输入中文的逗号“,”


如果暂时不能解决在命令窗口中输入中文逗号字符的话,我会考虑编一段代码,把中文逗号“,”或者英文逗号用其他特殊字符代替,比如用“@”
但是,貌似也绕不开一个替换字符的问题




代码如下

Dim tbadd As String

output.show(tbadd)

这段代码,在系统命令窗口中,中文逗号被英文逗号替换掉了,所以运行不会出错
 tbadd = "马云 ,13905710000 ,0571-88888888 ,浙江省 杭州市 下城区 不知所云大道 搞不清楚公司 ,120022"

 tbadd = Tables("JYDD").current("详细地址")
用这个代码,表格里面保存的是中文的逗号,就会出错


Dim add As Integer
   add = tbadd.indexof(",")
收件人姓名 = tbadd.substring( 0,add - 1)
   output.show(收件人姓名 )
   tbadd = tbadd.substring(add + 1)
   add = tbadd.indexof(",")
收件人手机 = tbadd.substring(0,add -1)
   output.show(收件人手机)
   tbadd = tbadd.substring(add+1)
   add = tbadd.indexof(",")
收件人电话 = tbadd.substring(0,add -1)
   output.show(收件人电话)
   tbadd = tbadd.substring(add+1)
   add = tbadd.indexof(" ")
收件人省份 = tbadd.substring(0,add )
   output.show(收件人省份) 
   tbadd = tbadd.substring(add+1)
   add = tbadd.indexof(" ")
收件人城市 =  tbadd.substring(0,add )
   output.show(收件人城市)  
   tbadd = tbadd.substring(add+1)
   add = tbadd.indexof(" ")
收件人县区 =  tbadd.substring(0,add )
   output.show(收件人县区)
   add = tbadd.indexof(" ")
   tbadd = tbadd.substring(add+1)
'output.show(tbadd)
收件人邮编 = tbadd.substring(tbadd.length -6)
output.show(收件人邮编)
收件人地址 =tbadd.substring(0,tbadd.length -7)
output.show(收件人地址)


 回到顶部