• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Cắt chuỗi

Góc trao đổi, hỏi đáp của ngôn ngữ Visual Basic 6 và Visual Basic Script

Điều hành viên: tungblt

Hình đại diện của người dùng
UFO
Thành viên tích cực
Thành viên tích cực
Bài viết: 133
Ngày tham gia: T.Bảy 08/06/2013 10:04 am
Has thanked: 19 time
Been thanked: 14 time

Cắt chuỗi

Gửi bàigửi bởi UFO » T.Tư 31/07/2013 7:30 pm

Richtextbox1 = "caulacbovb.com"
- Bây giờ mình muốn lấy chuỗi "lac" ra thì làm thế nào (Richtextbox nha #-o )



01676167394
Thành viên tích cực
Thành viên tích cực
Bài viết: 128
Ngày tham gia: T.Bảy 18/06/2011 8:45 am
Has thanked: 2 time
Been thanked: 13 time

Re: Cắt chuỗi

Gửi bàigửi bởi 01676167394 » T.Tư 31/07/2013 9:33 pm

Mã: Chọn hết

Private Sub Form_Load()
MsgBox GetString("caucalacbovb.com", "lac") 'GetString "Chuỗi","Ký tự muốn cắt trong chuỗi"
End Sub

Function GetString(strString As String, FindString As String) As String
Dim sIndex As Integer, Temp As String
sIndex = InStrRev(strString, FindString) 'Tìm vị trí của FindString
If sIndex = 0 Then Exit Function 'Nếu không tìm thấy chuỗi muốn cắt trong chuỗi thì thoát.
GetString = Mid$(strString, sIndex, Len(FindString)) 'Cắt chuỗi strString với độ dài FindString
End Function


Bạn coi xem được chưa :">

Hình đại diện của người dùng
UFO
Thành viên tích cực
Thành viên tích cực
Bài viết: 133
Ngày tham gia: T.Bảy 08/06/2013 10:04 am
Has thanked: 19 time
Been thanked: 14 time

Re: Cắt chuỗi

Gửi bàigửi bởi UFO » T.Tư 31/07/2013 10:52 pm

01676167394 đã viết:

Mã: Chọn hết

Private Sub Form_Load()
MsgBox GetString("caucalacbovb.com", "lac") 'GetString "Chuỗi","Ký tự muốn cắt trong chuỗi"
End Sub

Function GetString(strString As String, FindString As String) As String
Dim sIndex As Integer, Temp As String
sIndex = InStrRev(strString, FindString) 'Tìm vị trí của FindString
If sIndex = 0 Then Exit Function 'Nếu không tìm thấy chuỗi muốn cắt trong chuỗi thì thoát.
GetString = Mid$(strString, sIndex, Len(FindString)) 'Cắt chuỗi strString với độ dài FindString
End Function

- Hình như ko liên quan gì đến Richtextbox
- Ý mình muốn là xữ lý chuỗi mặc định trong Richtextbox http://www.forum.caulacbovb.com/viewtopic.php?f=7&t=27457&sid=4f84d9d460e36d0ece7b87f3b339cdc5 :P

Hình đại diện của người dùng
clanxomgia
Thành viên trung thành
Thành viên trung thành
Bài viết: 225
Ngày tham gia: CN 21/02/2010 8:26 pm
Has thanked: 5 time
Been thanked: 18 time

Re: Cắt chuỗi

Gửi bàigửi bởi clanxomgia » T.Năm 01/08/2013 9:29 am

Caí naỳ mình từng làm ^^ có cách tìm ...hàm (start..end) tìm bằng
Điểm đâù và điểm cuôí là ra ngôì điện thoaị lên ko giúp đc

01676167394
Thành viên tích cực
Thành viên tích cực
Bài viết: 128
Ngày tham gia: T.Bảy 18/06/2011 8:45 am
Has thanked: 2 time
Been thanked: 13 time

Re: Cắt chuỗi

Gửi bàigửi bởi 01676167394 » T.Sáu 02/08/2013 12:53 pm

RichTextBox1.Text là như Textbox mà @@! Sao cần phải RichTextBox1.TextRTF để làm gì chứ?


Quay về “Visual Basic 6 và Visual Basic Script (VB & VBS)”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.8 khách