• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Cách chẻ từng câu trong đoạn thêm vào bảng

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Class Moudules
  • Cách chẻ từng câu trong đoạn thêm vào bảng
• Cách chẻ từng câu trong đoạn thêm vào bảng

• 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.
• Bài trước Bài tiếp