a = "Hello" b= "World" b= "World"
c= a & “ “ & b & “ Lap trinh Windows”
' c bây giờ là "Hello World Lap trinh Windows"
5.2.3. C|c h{m xử lý chuỗi (tt)
Len: Trả về chiều d{i chuỗi.
Ví dụ: Greeting = "Hi John!”
Dim iLen As Integer
iLen = Len(Greeting) ' iLen bây giờ bằng 8
Left(String, Length): Trích chuỗi con từ đầu chuỗi gốc. chuỗi gốc.
Right(String, Length): Trích chuỗi con từ phần đuôi chuỗi gốc. đuôi chuỗi gốc.
Mid(String, start As Long, Length): Trích chuỗi con từ giữa chuỗi gốc. con từ giữa chuỗi gốc.
5.2.3. C|c h{m xử lý chuỗi (tt)
InStr([start,] string1, string2 [, compare]): Tìm chuỗi con trong chuỗi gốc. Nếu h{m InStr trả về 0, nghĩa l{ không tìm thấy.
Trong đó: Start: vị trí bắt đầu tìm. (null: Từ đầu chuỗi)
String1: chuỗi gốc, String2: chuỗi so s|nh.
Compare: kiểu so s|nh (vbTextCompare, vbBinaryCompare).
Ví dụ: Dim KeyValuePair As String, KeyAs String Dim ValueAs String
KeyValuePair = "BeatlesSong=Yesterday" Pos = Instr(KeyValuePair, "=")
Key = Left(KeyValuePair, Pos-1) Value = Mid(KeyValuePair, Pos+1)
PNH-HUT
149
5.2.3. C|c h{m xử lý chuỗi (tt)
Replace(Expression, find, replace[, start[, count[, compare]]]): Tìm v{ thay thế chuỗi compare]]]): Tìm v{ thay thế chuỗi
Trong đó:
• Expression: Biểu thức chuỗi chứa chuỗi cần thay thế.
• find:Chuỗi cần tìm.
• replace: Chuỗi thay thế chuỗi tìm được. • start: vị trí bắt đầu tìm. • start: vị trí bắt đầu tìm. • count: X|c định số lần thay thế. Mặc định l{ 1. • compare: kiểu so s|nh. PNH-HUT 150 Replace – Ví dụ
Dim AnyString, MyStr
AnyString = "Hello World" 'Khoi tao
MyStr = Replace(AnyString, "Hel", "AAAAA", 1, -1, vbTextCompare) -1, vbTextCompare)
'Returns "AAAAAlo World"
MyStr = Replace(AnyString, "Wor", "BBB", 1, -1, vbTextCompare) vbTextCompare)
'Returns "Hello BBBld"
5.2.3. C|c h{m xử lý chuỗi (tt)
LTrim (string) và RTrim(string): cắt tất cả c|c khoảng trắng bên tr|i (bên phải của chuỗi) .
Ucase(string): đổi chuỗi sang chuỗi gồm c|c ký tự l{ chữ hoa.
Asc: cho m~ Ascii của một ký tự.
Chr: trả về ký tự ứng với m~ Ascii được chỉ định.
Ví dụ:
Dim ASCIINumberA As Integer, CharB As String * 1 Dim StrFive As String * 1
ASCIINumberA = Asc("A") ' ASCIINumberA = 65 CharB = Chr(66)
5.2.3. C|c h{m xử lý chuỗi (tt)
InstrRev: tương tự như InStr nhưng việc tìm kiếm được tiến h{nh từ phải sang. kiếm được tiến h{nh từ phải sang.
Val: H{m đổi chuỗi sang số.
Str: H{m đổi số sang chuỗi.
PNH-HUT
153
5.2.4. H{m với tập tin, thư mục1. ChDrive 1. ChDrive
Dùng để đổi ổ đĩa l{m việcCú ph|p : ChDrive <”Tên ổ đĩa :”> Cú ph|p : ChDrive <”Tên ổ đĩa :”>
2. MkDir
Dùng để tạo một thư mục mới trên đĩaCú Ph|p : MkDir <Đường dẫn> Cú Ph|p : MkDir <Đường dẫn> Ví dụ : MkDir “D:\Caulacbovb”
3. ChDir