Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Hàm cắt chuỗi trong access
#1
Chào Các Anh Chị
Cho em hỏi trong access có hàm cắt chuỗi không?
Vd: em lọc ra chuỗi ABC0809AM
nhưng em chỉ cần ABC và bỏ 0809AM
Anh chị giúp em với.
Chữ ký của chatchut Xin chào, mình là chatchut, Tham gia http://thuthuataccess.com/forum từ ngày 15-03 -12.
Reply
Những người đã cảm ơn
#2
Bạn gõ: =left(Tenchuoi,3) là OK.
Trong đó: Tenchuoi là: ABC0809AM của bạn.
Thân chào !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn
#3
Tương tự Excel, Access có hỗ trợ các hàm:
Left(Chuỗi, số ký tự cần cắt)
Right(Chuỗi, số ký tự cần cắt)
Mid(chuỗi, vị trí bắt đầu, số ký tự cắt kể từ vị trí)

Ví dụ trên bạn dùng left("ABC0809AM",3)
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn chatchut
#4
(09-08-13, 06:12 PM)Noname Đã viết: Tương tự Excel, Access có hỗ trợ các hàm:
Left(Chuỗi, số ký tự cần cắt)
Right(Chuỗi, số ký tự cần cắt)
Mid(chuỗi, vị trí bắt đầu, số ký tự cắt kể từ vị trí)

Ví dụ trên bạn dùng left("ABC0809AM",3)

Không phải đơn giản vây đâu anh chị ơi. Do em nhầm xíu
vd: ABC0809AM = ABC
CDEFG0909PM = CDEFG
em chỉ lấy dãy chuỗi nhất định thôi, chẳng hạn như trước dãy số
Chữ ký của chatchut Xin chào, mình là chatchut, Tham gia http://thuthuataccess.com/forum từ ngày 15-03 -12.
Reply
Những người đã cảm ơn
#5
(09-08-13, 07:20 PM)chatchut Đã viết:
(09-08-13, 06:12 PM)Noname Đã viết: Tương tự Excel, Access có hỗ trợ các hàm:
Left(Chuỗi, số ký tự cần cắt)
Right(Chuỗi, số ký tự cần cắt)
Mid(chuỗi, vị trí bắt đầu, số ký tự cắt kể từ vị trí)

Ví dụ trên bạn dùng left("ABC0809AM",3)

Không phải đơn giản vây đâu anh chị ơi. Do em nhầm xíu
vd: ABC0809AM = ABC
CDEFG0909PM = CDEFG
em chỉ lấy dãy chuỗi nhất định thôi, chẳng hạn như trước dãy số
Đơn giản mà bạn. Ý bạn muốn là cắt các chữ cái đầu tiên đến vị trí số thì dừng lại đúng không. bạn viết một cái hàm như sau:
Mã PHP:
Public Function GetString(as String) As String
Dim i 
As Byte
Dim st 
As String
st
=""
i=1
s
=s+"0"
'Số 0 nhé, không phải chữ O. Cái này dùng để chắc chắn rằng chuỗi của bạn có số
Do While ASC(Mid(s,i,1)) <= ASC(0) and ASC(Mid(s,i,1)) >= ASC(9)
     st = st + Mid(s,i,1)
     i= i + 1
Loop
GetString = st
End Function 
Reply
Những người đã cảm ơn Noname
#6
1/ Hàm của bạn trav2t tôi test thử không cho kết quả
2/ Nếu như bạn chỉ tách lấy những chữ cái đầu đến khi gặp số thì dừng lại, tôi xin tặng bạn hàm tự tạo sau :

Mã PHP:
Function TachChuoi(strChuoi As String) As String
    Dim sChuoi 
As StringsChuoiTach As String
    sChuoi 
Trim(strChuoi)
    
sChuoiTach Space(0)
    
Dim i As Integer
    
For 1 To Len(sChuoi)
        If 
IsNumeric(Mid(sChuoii1)) = False Then
            sChuoiTach 
sChuoiTach Mid(sChuoii1)
        Else
            Exit For            
        
End If
    
Next
    TachChuoi 
sChuoiTach
End 
Function 

Khi đó TachChuoi("ABCD567HG") = ABCD

3/ Nếu muốn lấy toàn bộ chữ cái trong chuỗi thì sửa lại hàm trên như sau:

Mã PHP:
Function TachChuoi(strChuoi As String) As String
    Dim sChuoi 
As StringsChuoiTach As String
    sChuoi 
Trim(strChuoi)
    
sChuoiTach Space(0)
    
Dim i As Integer
    
For 1 To Len(sChuoi)
        If 
IsNumeric(Mid(sChuoii1)) = False Then
            sChuoiTach 
sChuoiTach Mid(sChuoii1)
        Else           
            
sChuoiTach sChuoiTach Space(0)
        
End If
    
Next
    TachChuoi 
sChuoiTach
End 
Function 

Khi đó TachChuoi("ABCD567HG") = ABCDHG

Các bạn vận dụng để tách lấy số trong chuỗi
Thân mến
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn khải nguyên
#7
(11-08-13, 12:58 PM)Xuân Thanh Đã viết: 1/ Hàm của bạn trav2t tôi test thử không cho kết quả
2/ Nếu như bạn chỉ tách lấy những chữ cái đầu đến khi gặp số thì dừng lại, tôi xin tặng bạn hàm tự tạo sau :

Mã PHP:
Function TachChuoi(strChuoi As String) As String
    Dim sChuoi 
As StringsChuoiTach As String
    sChuoi 
Trim(strChuoi)
    
sChuoiTach Space(0)
    
Dim i As Integer
    
For 1 To Len(sChuoi)
        If 
IsNumeric(Mid(sChuoii1)) = False Then
            sChuoiTach 
sChuoiTach Mid(sChuoii1)
        Else
            Exit For            
        
End If
    
Next
    TachChuoi 
sChuoiTach
End 
Function 

Khi đó TachChuoi("ABCD567HG") = ABCD

3/ Nếu muốn lấy toàn bộ chữ cái trong chuỗi thì sửa lại hàm trên như sau:

Mã PHP:
Function TachChuoi(strChuoi As String) As String
    Dim sChuoi 
As StringsChuoiTach As String
    sChuoi 
Trim(strChuoi)
    
sChuoiTach Space(0)
    
Dim i As Integer
    
For 1 To Len(sChuoi)
        If 
IsNumeric(Mid(sChuoii1)) = False Then
            sChuoiTach 
sChuoiTach Mid(sChuoii1)
        Else           
            
sChuoiTach sChuoiTach Space(0)
        
End If
    
Next
    TachChuoi 
sChuoiTach
End 
Function 

Khi đó TachChuoi("ABCD567HG") = ABCDHG

Các bạn vận dụng để tách lấy số trong chuỗi
Thân mến
Xin lỗi hàm của mình nhầm 01 chỗ. Chính xác thì thay đổi dong Do While như sau:
Mã PHP:
Do While ASC(Mid(s,i,1)) <= ASC(0) and ASC(Mid(s,i,1)) >= ASC(9
Reply
Những người đã cảm ơn
#8
(11-08-13, 01:32 PM)trav2t Đã viết: Xin lỗi hàm của mình nhầm 01 chỗ. Chính xác thì thay đổi dong Do While như sau:
Mã PHP:
Do While ASC(Mid(s,i,1)) <= ASC(0) and ASC(Mid(s,i,1)) >= ASC(9

Ý tôi nói là bạn xem lại cái hàm Asc nhé
Thân

P/S : Asc(String As String) As Integer
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Tự chọn 1 trong 2 filed Giá theo điều kiện Global_virus 0 15 5 Giờ trước
Bài mới nhất: Global_virus
  Nên bắt đầu với Access và VBA như thế nào? lehongduc 17 388 15-07-17, 02:51 AM
Bài mới nhất: tranthanhan1962
  Sửa các VBA và macaro khi chuyển access 2003 sang 2007 thanhtruong 9 439 24-06-17, 01:15 AM
Bài mới nhất: maidinhdan
  thay đổi biểu tượng Access dưới thanh Start từ win 7 đến win 10 thanhtruong 8 804 23-06-17, 03:25 PM
Bài mới nhất: thanhtruong
  [Help] Về việc in ấn trong Access JJKey 10 324 09-06-17, 12:37 PM
Bài mới nhất: tranthanhan1962

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ