Nhờ các Anh chị cho xin code cắt tách chuỗi trên textbox

Nơi trao đổi về VBA (Visual Basic for Application), lập trình cho ứng dụng Microsoft Office, AutoCAD...

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

Đăng trả lời
nnq999
Bài viết: 9
Ngày tham gia: Thứ 6 10/07/2015 4:30 pm
Has thanked: 4 times

Nhờ các Anh chị cho xin code cắt tách chuỗi trên textbox

Gửi bài by nnq999 »

Chào các Anh Chị, em mới làm quen VB nên chưa nắm được nhiều.
Em đang làm một Tools cho cơ quan em để quản lý thẻ BHYT, khi đọc mã QR code nó ra 1 chuỗi liền nhau rất dài, các đơn vị dữ liệu được ngăn với nhau bởi dấu sọc đứng.
Ví dụ, khi quét QR vào textbox1 nó ra chuỗi sau:
DN4016271371|4e677579e1bb205468e1bb8b2056c3a26e|21/06/1993|2|3030302c2048c3692c20487579ee20c490c3b46e6720416e682c205468c3a06e68207068e1bb912048c3a0204ee1b969|01 - 009|01/01/2020|-|10/03/2020
Bây giờ em đang muốn: khi quét QR vào textbox1 (nó ra đoạn mã trên) thì tự động tách các đoạn dữ liệu được ngăn bởi dấu sọc đứng (|) đưa vào các textbox khác (textbox2,textbox3,textbox4...) để em insert vào CSDL.
Rất mong các Anh chị danh chút thời gian hỗ trợ, em cảm ơn nhiều.
Hình đại diện của thành viên
truongphu
VIP
VIP
Bài viết: 4785
Ngày tham gia: Chủ nhật 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 528 times

Re: Nhờ các Anh chị cho xin code cắt tách chuỗi trên textbox

Gửi bài by truongphu »

Bạn dùng hàm split để tách. Dấu để tách tùy người dùng,trong trường hợp nầy là |
Vd
Dim ZZ$()
ZZ= Split(Text1.Text, "|")
sau đó kiếm trong mảng ZZ$() vị trí tương ứng, vd chuỗi 4e677579e1bb205468e1bb8b2056c3a26e là ZZ(1)
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh
nnq999
Bài viết: 9
Ngày tham gia: Thứ 6 10/07/2015 4:30 pm
Has thanked: 4 times

Re: Nhờ các Anh chị cho xin code cắt tách chuỗi trên textbox

Gửi bài by nnq999 »

vâng em cảm ơn Anh ạ
Đăng trả lời

Quay về