作者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