Bài giảng Hàm lập sẵn của VBA - MSC. Lê Minh Trung

Chia sẻ: Lavie Lavie | Ngày: | Loại File: PPT | Số trang:42

Thêm vào BST

Báo xấu

112
lượt xem 27
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

Bài giảng Hàm lập sẵn của VBA do MSC. Lê Minh Trung thực hiện giới thiệu tới các bạn các hàm chuỗi; các hàm liên quan tới số; các hàm liên quan tới ngày/tháng. Bài giảng hữu ích với các bạn chuyên ngành Công nghệ thông tin và những bạn quan tâm tới lĩnh vực này.

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: Bài giảng Hàm lập sẵn của VBA - MSC. Lê Minh Trung

HÀM LẬP SẴN CỦA VBA Người sọan: Msc.Lê Minh Trung Khoa Tóan Tin ĐHSP Tp Hồ Chí Minh
CÁC HÀM LẬP SẴN CỦA VB Các hàm chuỗi Các hàm liên quan tới số Các hàm liên quan tới ngày/tháng
Vài điều nói trước…  VB 6.0 có một “thư viện” các hàm được lập truớc (builtin function) rất hữu ích.  Để sử dụng các hàm lập trước của VB 6.0 cần:  Gọi hàm và cung cấp các giá trị cho các tham số  truyền đối số cho các tham số.  Sử dụng giá trị trả về của hàm (cho vp phép gán). •Tip: Hàm luôn trả về một giá trị
Ví dụ…  Hàm Len có cú pháp:  Len(Chuỗi)  Tham số Chuỗi “tượng trưng” một chuỗi tổng quát  Trả về chiều dài (số kí tự) của Chuỗi.  Dim Dai As Integer, ThongBao As String ThongBao = “Thong bao hom nay khong co gi de thong báo” Dai = Len(ThongBao) Dài 41 Gọi hàm bằng cách truyền đối số cho các tham số
Hàm Space…  Cú pháp:  Space(n)  Trả về một chuỗi gồm n khỏang trắng.  Space(n,Chuỗi)  Trả về một chuỗi gồm n kí tự là kí tự đầu của Chuỗi.  Msg = Space(4) Msg = “□□□□“  Msg = Space(4,”a”) Msg = Space(4,”acd”) Msg = “aaaa“ •Tip: •Space(…) trả về Variant •Space$(…) trả về một chuỗi
Gỡ bỏ khỏang trắng ra khỏi một chuỗi với LTrim,Rtrim,Trim…  Gỡ bỏ các khỏang trắng bên trái chuỗi  LTrim(Chuỗi)  Gỡ bỏ các khỏang trắng bên phải chuỗi  RTrim(Chuỗi)  Gỡ bỏ khỏang trắng hai đầu chuỗi.  Trim(Chuỗi)  Msg = “□□□Hello World□□□□”  LTrim(Msg) “Hello World□□□□”  RTrim(Msg) “□□□Hello World”  Trim(Msg) “Hello World”
Tìm chiều dài của chuỗi…  Cú pháp:  Len(Chuỗi)  Có thể dùng với vòng lặp For – Next để duyệt qua tất cả các kí tự của Chuỗi.  Dim I As Integer,Chuoi As String For I=1 To Len(Chuoi) ………………………………….. Next I
Các hàm cắt chuỗi…  Cắt bên trái một số kí tự:  Left(Chuỗi,n) :trả về chuỗi gồm n kí tự đầu của chuỗi Chuỗi.  Cắt bên phải một số kí tự:  Right(Chuỗi,n) : trả về chuỗi n kí tự cuối của chuỗi Chuỗi.  Cắt tại vị trí ,n kí tự:  Mid(Chuỗi,VịTrí,n) : trả lại chuỗi con của Chũoi bắt đầu tại vị trí VịTrí gồm n kí tự.
Ví dụ…  Dim Msg As String 123456789012345678  Msg= “VB that tuyet voi!”  Left$(Msg,7) “VB that”  Right$(Msg,4) “voi!”  Mid$(Msg,4,10) “that tuyet”  Mid$(Msg,4,100) “that tuyet voi!”
Mid được dùng như một điều lệnh…  Có thể dùng Mid(…) như một lệnh để thay đổi nội dung của một chuỗi.  Giả sử: Msg =“Pascal la so 1” Mid$(Msg,1,6)=“VBasic” Msg = “VBasic la so 1” Mid$(Msg,1,6)=“VBasic cua Microsoft” Msg = “VBasic la so 1” Mid$(Msg,1,6)=“VB” Msg = “VBscal la so 1” •Tip: Mid không bao giờ thay đổi chiều dài của chuỗi
Ví dụ…  Dim Chuoi As String Dim I As Integer, SoCham As Integer For I=1 To Len(Chuoi) If Mid(Chuoi,I,1)=“.” Then SoCham = SoCham +1 End If Next I Chuoi “ ASDas.nm…acv. “ SoCham 5
Ví dụ…  Dim KiTu As String*1,Chuoi As String Dim I As Integer KíTu la chữ For I=1 To Len(Chuoi) Thường KiTu = Mid(Chuoi,I,1) If (Asc(KiTu)>=Asc(“a”)) And (Asc(KiTu)
Hàm so sánh hai chuỗi…  Select Case StrComp(first, second, vbTextCompare) Case 0 ' first = second (e.g. "VISUAL BASIC" vs. "Visual Basic") Case 1 ' first
Hàm đổi chữ hoa, chữ thường…  Text = "New York, USA“ Print UCase$(Text) ' "NEW YORK, USA" Print LCase$(Text) ' "new york, usa"
Hàm đổi chữ hoa, chữ thường…  Text = "New York, USA“ Print StrConv(Text, vbUpperCase) ' "NEW YORK, USA" Print StrConv(Text, vbLowerCase) ' "new york, usa" Print StrConv(Text, vbProperCase) ' "New York, Usa"
Hàm tìm kiếm một chuỗi trong chuỗi khác…  InStr([NơiBắtĐầu,]ChuỗiCha,ChuỗiCon)  Tham số NơiBắtĐầu là tùy chọn  Nếu không có bắt đầu tìm kiếm từ đầu ChuỗiCha.  Trả về vị trí tìm thấy đầu tiên của ChuỗiCon trong ChuỗiCha  Trả về 0 nếu không tìm thấy.  InStr(2,”Lemontree”,”on”)  4
Ví dụ…  Print InStr("abcde ABCDE", "ABC") ' 7(phân biệt hoa thường) Print InStr(8, "abcde ABCDE", "ABC") ' 0 (bắt đầu tìm từ 8) Print InStr(1, "abcde ABCDE", "ABC", vbTextCompare) ' 1(không phân biệt hoa thường)
Hàm InStrRev…  InStrRev(ChuỗiCha,ChuỗiCon[,nơibđ])  Là hàm mới của VB.Giống như hàm InStr nhưng bắt đầu tìm kiếm từ cuối chuỗi.  Hữu dụng trong một số tình huống  Dim ĐDan As String,TenFile As String Dim ViTri As Integer ĐDan =“C:\ ABC\MNP\BaiTap\vb.doc” ViTri = InStrRev(ĐDan,”\”) TenFile = Mid$(Path,ViTri +1)
Hàm thay thế Replace…  Replace(Chuỗi,ChuỗiCon,ChuỗiThayThế[,B ắtĐầu[,SốLần]])  Tìm kiếm ChuỗiCon trong Chuỗi và thay thế bởi ChuỗiThayThế.  Dim Msg As String Msg = “Pascal that tuyet voi!” Msg =Replace(Msg,”Pascal”,”VB6.0”) Msg “VB6.0 that tuyet voi!”
CÁC HÀM LẬP SẴN LIÊN QUAN TỚI SỐ