[µo°Ý] vbºI¨ú¼Æ¦r???

t8899

«e­±0¤£¨ú¡A¤¤¤å­^¤å¤£¨ú.........ªº»yªk???¦pªþ¥ó Book2.rar (4.8 KB)

¤U¸ü¦¸¼Æ: 8

2014-12-4 21:41

¦p¦ó¤ÀÅGdouble byte¡Asingle byte?

bobomi

use Val (  )

t8899

use Val (  )
bobomi µoªí©ó 2014-12-4 22:17

val() ¶Ç¦^¼Æ¦r.....thanks
¦pªG§Ú¥u±Ë¥h¤¤¤å³¡¥÷?­n¦p¦ó°µ?
double byte¡Asingle byte ?³o­n¦p¦ó°Ï¤À?

ashan0418

©êºp§ÚÅv­­¤£¨¬¥H¤U¸ü§Aªºªþ¥óÀÉ¡A
¦ý¬Ý§A¤åªº·N«ä¬O¥u¨ú¼Æ¦r¦Ó¤w¹À!!
­Y¬Oªº¸ÜÀ³¥i¥H¥Îasc()¥h§P§O¨C¤@­Ó¦rªº½X¡A
¼Æ¦r0¬O¦^¶Ç48~¼Æ¦r9¬O¦^¶Ç57!!

t8899

©êºp§ÚÅv­­¤£¨¬¥H¤U¸ü§Aªºªþ¥óÀÉ¡A
¦ý¬Ý§A¤åªº·N«ä¬O¥u¨ú¼Æ¦r¦Ó¤w¹À!!
­Y¬Oªº¸ÜÀ³¥i¥H¥Îasc()¥h§P§O¨C¤@­Ó ...
ashan0418 µoªí©ó 2014-12-5 09:28

¦³µLºI¨ú¦r¦ê¸Ìªº­^¤å¦r¥Àªº¨ç¦¡ ??
123abc321 ====>abc

rouber590324

¤§«e«e½ú½d¨Ò¤Þ¥Î°Ñ¦Ò¤§
1=¥hªÅ¥Õ
2=¥h¼Æ¦r
3=¨ú¼Æ¦r
4=¥h­^¤å
5=¨ú­^¤å
6=¨úº~¦r
7=¥hº~¦r
Sub yy()
With CreateObject("VBSCRIPT.REGEXP")
    .Global = True
    For i = 1 To 7
.Pattern = Application.Choose(i, "\s", "[0-9]", "[^0-9]", "[A-Za-z]", "[^A-Za-z]", "[^\u4e00-\u9fa5]", "[\u4e00-\u9fa5]")
Cells(i, 2) = .Replace([a1], "")
Next i
End With
End Sub

ashan0418

¦^´_ 5# t8899


Sub test()
  str1 = "123abc321"
  For i = 1 To Len(str1)
    If Asc(Mid(str1, i, 1)) >= 97 And Asc(Mid(str1, i, 1)) <= 122 Then
        str2 = str2 + Mid(str1, i, 1)
    End If
  Next
  MsgBox str2
End Sub

t8899

¤§«e«e½ú½d¨Ò¤Þ¥Î°Ñ¦Ò¤§
1=¥hªÅ¥Õ
2=¥h¼Æ¦r
3=¨ú¼Æ¦r
4=¥h­^¤å
5=¨ú­^¤å
6=¨úº~¦r
7=¥hº~¦r
Sub yy ...
rouber590324 µoªí©ó 2014-12-5 10:37

³o«Ü§¹¬ü¡A§Ú¸Õ¬Ý¬Ý  thanks

t8899

¦^´_  t8899


Sub test()
  str1 = "123abc321"
  For i = 1 To Len(str1)
    If Asc(Mid(str1, i ...
ashan0418 µoªí©ó 2014-12-5 10:49

ÁÂÁ«ü¾É