asp a s p
发布: 2007-3-26 11:27 | 作者: newpep | 查看: 95次
short key: a s p L e n L e n ( s t r i n g | v a r n a m e ) T r i m T r i m ( s t r i n g ) L t r i m L t r i m ( s t r i n g ) R t r i m R t r i m ( s t r i n g ) M i d M i d ( s t r i n g , s t a r t , l e n g t h ) s t r i n g s t a r t l e n g t h s t a r t L e f t L e f t ( s t r i n g , l e n g t h ) s t r i n g l e n g t h R i g h t R i g h t ( s t r i n g , l e n g t h ) s t r i n g l e n g t h L C a s e L C a s e ( s t r i n g ) s t r i n g U C a s e U C a s e ( s t r i n g ) s t r i n g S t r C o m p S t r C o m p ( s t r i n g 1 , s t r i n g 2 [ c o m p a r e ] ) s t r i n g 1 s t r i n g 2 0 - 1 1 asp
| Len | Len(string|varname) | |
| Trim | Trim(string) | |
| Ltrim | Ltrim(string) | |
| Rtrim | Rtrim(string) | |
| Mid | Mid(string,start,length) | string start length start |
| Left | Left(string,length) | string length |
| Right | Right(string,length) | string length |
| LCase | LCase(string) | string |
| UCase | UCase(string) | string |
| StrComp | StrComp(string1,string2[ compare]) | string1 string2 0 -1 1 |
| InStr | InStr(string1,string2[, compare]) |
string1 string2 |
| Split | Split(string1,delimiter[, count[, start]]) |
delimiter delimiter ("") |
| Replace | Replace(expression, find, replacewith[, compare[, count[, start]]]) |
(find) (replacewith) |
1 Len
Len
Dim MyString MyString = Len("VBSCRIPT") 'MyString82 Trim Ltrim Rtrim
LTrim, RTrim, Trim
Dim MyVar MyVar = LTrim(" vbscript ") 'MyVar"vbscript "MyVar = RTrim(" vbscript ") 'MyVar" vbscript"MyVar = Trim(" vbscript ") 'MyVar"vbscript"
3 Mid
Mid
Dim MyVar MyVar = Mid("VBis fun!", 4, 6) 'MyVar"Script"
4 Left
Left MyString
Dim MyString, LeftString MyString = "VBSCript" LeftString = Left(MyString, 3) 'LeftString"VBS
5 Right
Right
Dim AnyString, MyStr AnyString = "Hello World" 'MyStr = Right(AnyString, 1) '"d"MyStr = Right(AnyString, 6) '" World"MyStr = Right(AnyString, 20) '"Hello World"6 LCase
LCase
Dim MyString Dim LCaseString MyString = "VBSCript" LCaseString = LCase(MyString) ' LCaseString"vbscript"7 UCase
UCase
Dim MyWord MyWord = UCase("Hello World") '"HELLO WORLD"
8 StrComp
StrComp 1 0
Dim MyStr1, MyStr2, MyComp MyStr1 = "ABCD": MyStr2 = "abcd" 'MyComp = StrComp(MyStr1, MyStr2, 1) '0MyComp = StrComp(MyStr1, MyStr2, 0) '-1MyComp = StrComp(MyStr2, MyStr1) '1
9 InStr
InStr
Dim SearchString, SearchChar, MyPos SearchString ="XXpXXpXXPXXP"??? SearchChar = "P"??MyPos = Instr(SearchString, SearchChar)???' 9.
10 Split
Dim MyString, MyArray, Msg
MyString = "VBScriptXisXfun!"
MyArray = Split(MyString, "x",-1,1)
' MyArray(0) contains "VBScript".
' MyArray(1) contains "is".
' MyArray(2) contains "fun!".
Response.Write(MyArray(0))
11 Replace
Replace("ABCD", "BC", "12") ' A12D
