作者lisder (lisder)
看板Visual_Basic
标题Re: [VB6 ] 字串转换的问题
时间Wed Apr 18 14:37:15 2012
※ 引述《lisder (lisder)》之铭言：
: 我想要在Text里面输入字串，在将这些字串转为ASCII
: 於是将程式写为 Label1.Caption = Asc(Text1.Text)
: 可由Label所呈现的结果里，只有第一个字元有成功转为ASCII
: 後面的字元都没有转换到。
: 我该怎麽要修改我的程式呢？恳请各位大大帮忙～
我有试过for与mid()的方式了，但还是没有抓到我想要的东西
目前暂时以不转换ASCII，先成功抓到为主，我的程式码如下：
Dim ss As String
Private Sub Command1_Click()
For I = 1 To Len(Text1.Text)
ss = Mid("Text1.Text", I, 1)
Next I
Label1.Caption = ss
End sub
请问这段程式码哪里错了呢？点下command1後，label1的显示马上消失不见
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 120.117.112.36
1F：推 LPH66:你其实已经抓到了 只是你自己把前面的结果盖掉了而已 04/18 15:00
2F：推 serhgrt:ss一直被覆盖，label1不是最後只会呈现最後一码吗? 04/18 15:05
3F：→ serhgrt:for i=1 to len(trim(Text.text)) ss=ss+mid(...) next 04/18 15:07
4F：→ serhgrt:抱歉打错了 是Text1.text 04/18 15:08
5F：→ lisder:恩…感谢L大与s大的帮忙，现在真的有抓到了，可要如何将抓 04/18 15:12
6F：→ lisder:到的字元转成ASCII呢？我试过asc的方式～但是他只转第一个 04/18 15:13
7F：→ lisder:字元 04/18 15:13
8F：→ MOONRAKER:asc(ss)不就是了。 04/18 15:43
9F：→ lisder:的确是asc(ss)，可这样只有第一个字元，如果我输入一个以上 04/18 15:45
10F：→ MOONRAKER:你学过 i = i + 1 吧？那你知道 s = s & "1" 的用途吧？ 04/18 15:45
11F：→ MOONRAKER:s="" : for i=1 to 10 : s = s & str(i) : next i 04/18 15:46
12F：→ lisder:以上的字元，後面都不会被转换到。 04/18 15:46
13F：→ MOONRAKER:请问 s 最後是什麽？ 04/18 15:46
14F：→ lisder:1 2 3 4 5 6 7 8 9 10 04/18 15:55
15F：→ MOONRAKER:那你还有什麽问题。 04/18 15:56
16F：→ lisder:谢谢你的指点，我会在尝试看看 04/18 15:58
17F：→ fumizuki:Text1.Text 为何前後要加双引号 04/18 21:34
18F：→ s3748679:XD 囧了 04/18 21:50