怎样将ABCDEFG转成A-B-C-D-E-F-G?

xinle · 发表于 2006-4-11 22:47:00

如果有些一字符,比如:ABCDEFG
能不能用一逐步形成句子将其变成:A-B-C-D-E-F-G
谢谢!

xinle · 发表于 2006-4-11 22:57:00

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:00

结果很简单,因你在每个字符都加了一上"-"

xinle · 发表于 2006-4-11 23:12:00

非常谢谢你的回复!
但好像没有解决问题!

wwwwa · 发表于 2006-4-11 23:20:00

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:00

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:00

谢谢各位了

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[与其它组件] 怎样将ABCDEFG转成A-B-C-D-E-F-G?

浏览过的版块

群介绍
主题无相 (随机显示版	同地区群块其他地区)