[q] Vb???

[dang_tinhoc]

Trong Textbox của VB có dòng sau :

abc def ghi jkl mno pqr stu vwx yz

Xin chỉ tôi cách viết đoạn mã để search trong textbox, nếu gặp "mno" thì tự động đóng chương trình lại ?

Xin cám ơn !

[nguyenthu]

Chào bạn,
Hàm Instr trả về cho bạn position của chuỗi mà bạn muốn tìm, ở đây là "mno".
Nếu nó tìm thấy thì bạn đóng chương trình lại (tức giá trị nằm giữa 1 và Lenth(string1), nếu không thì không thấy, bạn tiếp tục.
Chúc thành công.
Thân

[dtt_vn]

if instr(1,chuoi_me,"mno",vbTextCompare ) <> 0 then
' có rồi đấy
end
end if

[trungnt88]

chỉ tui mấy cái đối số của instr ( nhất là cái VBcompare ý)

[stupid man]

Nếu bạn ko thích dùng hàm có sẵn thì có thể dùng đoạn code sau:
dim i as integer
for i=1 to (len(text1.text)-len("mno")+1)
if(mid(text1.text,i,len("mno"))="mno" then
goto label
end if
next
label:
..........

[dang_tinhoc]

À,vậy thì thay vì end thì làm sao để sửa "mno" lại bằng từ khác, thí dụ "abc" ?

[dtt_vn]

if instr(1,chuoi_me,chuoi_cần_tìm,vbTextCompare ) <> 0 then
' có rồi đấy
end
end if

[dtt_vn]

vbBinaryCompare : so sánh chính xác từng ký tự. như thế là có xét hoa - thường

vbTextCompare : không xét hoa - thường

vbDatabaseCompare : chỉ dùng trong DB. Không rõ công dụng

[dang_tinhoc]

Bài viết được gửi bởi dang_tinhoc
À,vậy thì thay vì end thì làm sao để sửa "mno" lại bằng từ khác, thí dụ "abc" ?
Ai trả lời giùm tôi đi !!!lol

[stupid man]

bạn có thể cho người ta nhập vào 1 text khác ví dụ như text2 rồi thay "mno" thành text2.text trong đoạn code

[dtt_vn]

mèn ơi, dtt_vn trả lời gòi đó

[White_Rose]

Bài viết được gửi bởi dang_tinhoc
À,vậy thì thay vì end thì làm sao để sửa "mno" lại bằng từ khác, thí dụ "abc" ?


Nếu bạn múôn thay, hãy sử dụng hàm Replace(str, strFind, strReplace, nCount,

nRepeate)
Hoặc dùng:
Mid(str, start, count) = strReplace

[dang_tinhoc]

Cám ơn !

[trungnt88]

cái Replace là hay nhất ! dùng instr lâu hơn nhiều

[dtt_vn]

OK