GBKEE

¦^´_ 15# downling

1. Sub Ex()  'StrReverse¨ç¼Æ -> ¶Ç¦^«ü©w¦r¦êªº¦r¤¸¶¶§Ç¬O¤Ï¦Vªº¡C
   
2.     Dim A, X
   
3.     A = "A_120_78_9"
   
4.     X = A Like "*120*"    '§ä¨ì¶Ç¦^ True ¤Ï¤§¶Ç¦^ False
   
5.     MsgBox X   
   
6.    X = InStrRev(A, "_")    '¥Ñ¥ª¥k¦V¥ª·j´Mªº¦r¦ê¹Bºâ¦¡
   
7.     MsgBox X
   
8.    A = StrReverse(A)
   
9.     X = InStr( A, "_")  '¥Ñ¥ª¦V¥k·j´Mªº¦r¦ê¹Bºâ¦¡
   
10.     MsgBox X
    
11. End Sub

½Æ»s¥N½X

1. Sub Ex()     ''InStr  ,    InStrRev  ¥Îªk¤£¦P
   
2.     Dim A, X, C
   
3.     A = "A120_78_9"
   
4.      'InStr([start, ]string1, string2[, compare])
   
5.     '      start= C    string1= A     'string2="_"
   
6.     C = 1                   '³]©w±q²Ä´X­Ó¦r¥À¶}©l´M§ä
   
7.     'X = InStr(A, "_")      '¨S«ü©wC ¹w³]¬°1
   
8.     X = InStr(C, A, "_")  '¥Ñ¥ª¦V¥k·j´Mªº¦r¦ê¹Bºâ¦¡
   
9.     MsgBox X
   
10.     'InstrRev(stringcheck, stringmatch[, start[, compare]])
    
11.     '    stringcheck= A   'stringmatch="_"  Start= C
    
12.     C = Len(A)                 '³]©w±q²Ä´X­Ó¦r¥À¶}©l´M§ä
    
13.     'X = InStrRev(A, "_")      '¨S«ü©wC ¹w³]¬°¦r¦êªºªø«× Len(A)  
    
14.     X = InStrRev(A, "_", C)  '¥Ñ¥k¦V¥ª·j´Mªº¦r¦ê¹Bºâ¦¡
    
15.     MsgBox X
    
16. End Sub

½Æ»s¥N½X