-
09-07-2008, 03:36 PM #1Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 3
Tách chữ trong một dòng thành hai dòng?
Em có frmPhieuthu chứa: txtSTChu: Mười triệu đồng chẵn./.
có repPhieuthu chứa: txtSTChu1: Mười triệu
txtSTChu2: đồng chẵn./.
Cho em hỏi, làm thế nào để em tách được một dòng chữ thành hai dòng chữ như trên?View more random threads:
- 1 bài tập cơ bản của Access mà mình ko hiểu...
- Bắt sự kiện Report được in ra máy in?
- Kết nối với máy chấm công
- TIP: Kiểm tra dung lượng file Access .
- [Help Me !!!] Cần Giúp Đỡ Về Lỗi 2105 Của access :((:((
- Tìm kiếm với hai điều kiệm trong 1textbox
- Nhờ các cao nhân giúp đỡ cách chạy phần mềm kế toán Access.
- Hỏi query Xuất Nhập Tồn
- Tổng quát về phần mềm quản lý nhập - xuất - tồn
- Sự kiện Timer trong Access
-
09-08-2008, 03:14 PM #2Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Tách chữ trong một dòng thành hai dòng?
Dùng hàm left hoặc right để lấy các ký tự. VD txtSTChu1=txtSTChu(left,10)
-
09-09-2008, 02:35 AM #3Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Tách chữ trong một dòng thành hai dòng?
Đơn giản thế thôi sao anh?
Nhưng anh ơi, em nghĩ thế này. Ví dụ khi đó em có:
txtSTChu: Mười triệu đồng chẵn./.
Kết quả em đạt được khi dùng hàm Left, Ringht.
txtSTChu1=txtSTChu(Left,10)= Mười tr
txtSTChu2=txtSTChu(Right,x) = iệu đồng chẵn./.
thì trông không đẹp lắm anh ah.
Anh/Chị nào có cách gì hay hơn không ah?Giúp em với!
-
09-09-2008, 03:11 AM #4Silver member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Tách chữ trong một dòng thành hai dòng?
Do em đếm ký tự chưa chuẩn thôi. Ví dụ em lấy ký tự "đồng chẵn" trước. Như vậy có 9 ký tự kể cả khoảng trống.
==> txtSTchu2=right(txtStchu,9).
Sau đó lấy txtSTchu1 bằng cách đếm số ký tự của txtSTchu trừ đi 9
==> txtSTchu1=left(txtSTchu,(len(txtSTchu)-9))
là OK thôi mà
Thuật toán là như vậy anh chưa thử nhưng chắc là chạy ngon thôi
-
09-09-2008, 03:46 AM #5Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Tách chữ trong một dòng thành hai dòng?
Hàm Instr(start, str1, str2) sẽ trả về vị trí của chuỗi str2 nằm trong str1.
Nếu muốn lấy txt1 tối thiểu là 10 ký tự và cắt đúng chỗ trống (chr(32)) thì:
txt1 = left(str1, instr(10, str1, chr(32)))
Cái còn lại bạn tự tính nhé.
-
09-09-2008, 09:35 PM #6Silver member
- Ngày tham gia
- Feb 2016
- Bài viết
- 0
Ðề: Tách chữ trong một dòng thành hai dòng?
Cụ thể đến thế là cùng rồi, bạn phải tìm hiều thêm đi, những cái đấy là rất, rất... cơ bản
-
09-10-2008, 04:57 AM #7Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: Tách chữ trong một dòng thành hai dòng?
Dạ đệ tìm ra rồi ah!
Các huynh xem đệ làm có đúng không nhé, dù nó chạy được nhưng không biết đệ viết như thế có hợp lý không.
Linhk down đây ah: http://www.mediafire.com/download.php?29n7vrhhwnl
-
09-10-2008, 05:46 AM #8Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 1
Ðề: Tách chữ trong một dòng thành hai dòng?
Bạn viết được đấy. Nhưng xem lại ví dụ trước khi gửi nhé thiếu mất trường Hovaten hoặc chưa rename trường STBso thành trường họ và tên
-
10-24-2008, 10:53 PM #9Junior Member
- Ngày tham gia
- Dec 2015
- Bài viết
- 0
Ðề: Tách chữ trong một dòng thành hai dòng?
Code day :
Public Function tinhsotienchu1(chuoi As String, LenChar As Integer)
Dim temptext, temptext1 As String
Dim i As Integer
temptext = chuoi
If Len(temptext) > LenChar Then
i = InStr(LenChar, temptext, " ")
If i <> 0 Then
temptext1 = Left(temptext, i)
tienbangchuchuoisau = Mid(temptext, i + 1, Len(temptext) - i)
Else
temptext1 = chuoi
tienbangchuchuoisau = ""
End If
Else
temptext1 = chuoi
tienbangchuchuoisau = ""
End If
tinhsotienchu1 = temptext1
End Function
Public Function tinhsotienchu2(chuoi As String, LenChar As Integer)
Dim temptext, temptext1 As String
Dim i As Integer
temptext = chuoi
If Len(temptext) > LenChar Then
i = InStr(LenChar, temptext, " ")
If i <> 0 Then
temptext1 = Left(temptext, i)
tienbangchuchuoisau = Mid(temptext, i + 1, Len(temptext) - i)
Else
temptext1 = chuoi
tienbangchuchuoisau = ""
End If
Else
temptext1 = chuoi
tienbangchuchuoisau = ""
End If
tinhsotienchu2 = tienbangchuchuoisau
End Function
Giá phẫu thuật vùng kín và phẫu thuật vùng kín ở đâu tốt nhất Đà Nẵng. Mời bạn cùng trên dưới hiểu ở bài xích viết lách dưới đây. bài viết sẽ giúp bạn giàu thêm nhiều thông tin phăng phẫu thuật xứ...
Tìm hiểu phẫu thuật vùng kín tại Đà Nẵng: Chất lượng và giá cả