0.3 Các kiểu dữ liệu có cấu trúc

Học xong chương này, sinh viên phải nắm bắt được các vấn đề sau:

- Sử dụng kiểu dữ liệu chuỗi.

- Sử dụng kiểu ngày tháng.

- Kiểu động (Variant)

- Kiểu mảng

Kiến thức có liên quan:

- Các cấu trúc lập trình trong VB.

Tài liệu tham khảo:

(External Link)

(External Link)

Kiểu chuỗi ký tự (String)

Khai báo

Có hai đặc tả chuỗi ký tự theo cú pháp như sau:

- String *<Chiều dài>Chỉ ra một chuỗi ký tự có độ dài cố định là bao nhiêu ký tự. Trong trường hợp giá trị thực của chuỗi có độ dài ngắn hơn độ dài khai báo thì độ dài của chuỗi thì một số khoảng trắng được thêm vào cho đủ độ dài thực. Trong trường hợp giá trị thực của chuỗi có độ dài lớn hơn độ dài khai báo thì sẽ cắt bớt các ký tự dư thừa bên phải. Một chuỗi không có ký tự nào (độ dài bằng 0) gọi là chuỗi rỗng.

- String: Khi không chỉ ra chiều dài tối đa của chuỗi thì mặc nhiên chuỗi có chiều dài tối đa là 65.500 ký tự.

Ví dụ:

Dim Name As String * 30, Class As String * 10

Dim A As String

Các hàm xử lý chuỗi

• Ghép chuỗi: cho phép ghép 2 hay nhiều chuỗi lại với nhau nhờ phép toán&.

Ví dụ:

Dim FirstWord As String, SecondWord As String

Dim Greeting As String

FirstWord = "Hello"

SecondWord = "World"

Greeting = FirstWord&SecondWord

' Greeting bây giờ là "HelloWorld"

• Len: trả về chiều dài một chuỗi được chỉ định.

Ví dụ:

Greeting = "Hi John!"

Dim iLen As Integer

iLen = Len(Greeting) ' iLen bây giờ bằng 8

• Left: Trích chuỗi con từ phần đầu chuỗi gốc Left (String, [length]).
• Right: Trích chuỗi con từ phần đuôi chuỗi gốc Right (String, [length])
• Mid: Trích chuỗi con từ giữa chuỗi gốc

Mid(String, Start As Long, [length])

Ví dụ 1:

Dim Today As String, StrDay As String, StrMonth As String

Dim StrYear As String, StrMonthYear As String

Today = "24/05/2001" ' Lấy ra 2 ký tự từ bên trái của chuỗi TodayStrDay = Left(Today,2) ' StrDay bây giờ bằng "24"' Lấy ra 4 ký tự từ bên phải của String TodayStrYear = Right(Today,4) ' StrYear bây giờ bằng "2001"' Lấy ra 2 characters bắt đầu từ ký tự thứ tư của chuỗi

‘ Today, ký tự đầu tiên từ bên trái là thứ nhấtStrMonth = Mid(Today,4,2) ' StrMonth bây giờ bằng "05"' Lấy ra phần còn lại bắt đầu từ ký tự 4 của chuỗi TodayStrMonthYear = Mid(Today,4) ' StrMonthYear bằng “05/2001"

Ví dụ 2:

Today = "24/05/2001"

' Thay thế character thứ 3 của Today bằng "-"

Mid(Today,3,1) = "-"

' Thay thế 2 ký tự bắt đầu từ ký tự 4 của Today bằng "10"

Mid(Today,4,2) = "10"

' Thay thế character thứ 6 của Today bằng "-"

Mid(Today,6,1) = "-" ' Today bây giờ bằng "24-10-2001"

• InStr: 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.

Cú pháp: InStr([start,] string1, string2 [, compare])

Trong đó:

- Start: Xác định vị trí trong chuỗi bắt đầu việc tìm kiếm. Nếu giá trị là Null thì sẽ bắt đầu từ đầu chuỗi. Nếu như tham số Compare có đặc tả thì bắt buộc phải khai báo tham số Start.

- String1: Biểu thức chuỗi để so sánh.

- String2: Chuỗi cần tìm.

- Compare: Xác định kiểu so sánh chuỗi.

Giá trị: vbTextCompare, vbBinaryCompare.