Office中国论坛/Access中国论坛

标题: 怎样将ABCDEFG转成A-B-C-D-E-F-G? [打印本页]

作者: xinle 时间: 2006-4-11 22:47
标题: 怎样将ABCDEFG转成A-B-C-D-E-F-G?
如果有些一字符,比如:ABCDEFG
能不能用一逐步形成句子将其变成:A-B-C-D-E-F-G
谢谢!

作者: xinle 时间: 2006-4-11 22:57
Dim i, n As Integer
n = Len("ABCDEF")
For i = 1 To n
Sn1 = Sn1 & "-" & Asc(Mid("ABCDEF", i, 1))
Next

结果为:-A-B-C-D-E,为什么开始就多了一个"-"

作者: 一点通 时间: 2006-4-11 23:02
结果很简单,因你在每个字符都加了一上"-"

作者: xinle 时间: 2006-4-11 23:12
非常谢谢你的回复!
但好像没有解决问题!

作者: wwwwa 时间: 2006-4-11 23:20
try:

Dim i, n As Integer
n = Len("ABCDEF")
For i = 1 To n
Sn1 = Sn1 & "-" & Asc(Mid("ABCDEF", i, 1))
Next
sn1=mid(sn1,2,len(trim(sn1)))

作者: qhp-soft 时间: 2006-4-11 23:36
Dim a, b, j As String

j = "ABCDEFG"

For i = 1 To Len(j)
a = Mid(j, i, 1)
  If i = Len(j) Then
b = b + a
  Else
b = b + a + "-"
  End If
Next
MsgBox b

____________________________________________________

如有必要发邮件至: qhp_soft@126.com  或至电:13148802226

-----
论坛是我们成长的家园，我们要共同爱护好、建设好这个家园。同时欢迎大家光临我
的主页：http://www.qhpsoft.com

作者: xinle 时间: 2006-4-12 01:57
谢谢各位了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)