-
Cách chẻ từng câu trong đoạn thêm vào bảng
btamsgn > 27-03-23, 10:45 AM
Chào các bạn,
Mình có tạo một form gồm : 1 textbox, 1subform và 1 nút lệnh
1. Mình muốn nhận được code cho nút lệnh để chẻ từng câu trong đoạn textbox thành từng câu rồi thêm vào bảng "Tsplit".
2. Hiện tại mình làm bằng tay copy từng câu rồi dán vào bảng.
3. Rất mong nhận được sự trợ giúp từ các bạn.
Cảm ơn.
Đính kèm: File minh hoa -
RE: Cách chẻ từng câu trong đoạn thêm vào bảng
ongke0711 > 27-03-23, 12:44 PM
(27-03-23, 10:45 AM)btamsgn Đã viết: Đính kèm: File minh hoa
File không có quyền download nhé bạn. -
RE: Cách chẻ từng câu trong đoạn thêm vào bảng
btamsgn > 27-03-23, 04:30 PM
Mình đã upload lại rồi.
Nhờ các bạn xem lại link
Cảm ơn
(27-03-23, 12:44 PM)ongke0711 Đã viết:
(27-03-23, 10:45 AM)btamsgn Đã viết: Đính kèm: File minh hoa
File không có quyền download nhé bạn. -
RE: Cách chẻ từng câu trong đoạn thêm vào bảng
ongke0711 > 27-03-23, 05:46 PM
Nếu nguyên đoạn text phân cách câu bằng dấu chấm thì bạn dùng hàm Spit() đưa vô mảng là được rồi. Chỉ sợ còn các dấu phân cách khác thì lại phải xét tiếp với hàm instr(). -
RE: Cách chẻ từng câu trong đoạn thêm vào bảng
btamsgn > 30-03-23, 01:15 PM
Chào các bạn,
Hiện tại mình có một form chứa những câu đã có sẵn xuống dòng.
Giờ mình muốn cập nhật từng câu trong textbox vào bảng "Tsplit" cột "Sent" theo điều kiện cột "STT" thì sửa câu lệnh trên như thế nào ?
vi dụ: STT Sent
1 Last week,...practical suggestions
2 Some students ......save paper
3 .........
Đính kèm file : https://drive.google.com/file/d/1CtiElJ_...sp=sharing
Rất mong trợ giúp từ các bạn.
Cảm ơn -
RE: Cách chẻ từng câu trong đoạn thêm vào bảng
ongke0711 > 31-03-23, 12:07 AM
(27-03-23, 10:45 AM)btamsgn Đã viết: 1. Mình muốn nhận được code cho nút lệnh để chẻ từng câu trong đoạn textbox thành từng câu rồi thêm vào bảng "Tsplit".
2. Hiện tại mình làm bằng tay copy từng câu rồi dán vào bảng.
3. Rất mong nhận được sự trợ giúp từ các bạn.
Việc tách câu này nhanh nhất là dùng biểu thức chính qui - Regex.
Mã PHP:Private Sub Command2_Click()
TachCau_Regex Me.txtSourceText
DoCmd.OpenTable "Tsplit"
End Sub
Sub TachCau_Regex(sPara As String)
Dim regex As Object
Dim matches As Object 'Collection cac cau duoc tach
Dim Cau As Object
Dim i As Integer
' Create a regular expression object to match sentences
Set regex = CreateObject("VBScript.RegExp")
With regex
.Pattern = "([^.?!:]+[.?!:])"
.Global = True
End With
'Tim cac cau thoa man bieu thuc Regex dua vao collection
Set matches = regex.Execute(sPara)
Dim s As String
For Each Cau In matches
s = "INSERT INTO Tsplit (Sentces) Values(""" & Cau & """)"
CurrentDb.Execute s, dbFailOnError
Next Cau
End Sub
Link demo: https://www.mediafire.com/file/me6hyrpp1...accdb/file -
RE: Cách chẻ từng câu trong đoạn thêm vào bảng
btamsgn > 31-03-23, 11:31 AM
Cảm ơn ongke0711 rất nhiều.