• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Giải thuật đếm số ký tự trong chuỗi

Đây là nơi để các bạn trao đổi về cấu trúc dữ liệu và giải thuật

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

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4756
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 509 time

Giải thuật đếm số ký tự trong chuỗi

Gửi bàigửi bởi truongphu » T.Tư 12/10/2011 7:07 pm

1- Thống kê chỉ một ký tự:
- Xác định độ dài của chuỗi L1
- Thay thế (xóa) ký tự muốn đếm với ""
- Xác định lại độ dài của chuỗi L2
- Tổng số ký tự muốn đếm là L1-L2

2- Thống kê các ký tự có trong chuỗi:
- Cho vòng lặp chạy đến khi chuỗi = ""
-Trong vòng lặp:
* Độ dài chuỗi L1
* Thế ký tự đầu tiên của chuỗi với "" (xóa các ký tự giống ký tự đầu)
* Độ dài chuỗi mới L2
* Ghi nhớ ký tự bị xóa với số đếm là L1-L2


o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4756
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 509 time

Re: Giải thuật đếm số ký tự trong chuỗi

Gửi bàigửi bởi truongphu » T.Bảy 08/03/2014 8:08 am

xuanha đã viết:Private Function demxau(xau As String, tucantim As String) As Integer
Dim x() As String
x = Split(xau, tucantim)
demxau = UBound(x)
End Function


Là một giải thuật hay!
Dùng hàm Split có lẽ chạy nhanh hơn nhiều hàm Replace
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Harry
Bài viết: 1
Ngày tham gia: T.Sáu 29/08/2014 4:48 pm

Re: Giải thuật đếm số ký tự trong chuỗi

Gửi bàigửi bởi Harry » T.Sáu 29/08/2014 5:11 pm

* Thế ký tự đầu tiên của chuỗi với "" (xóa các ký tự giống ký tự đầu)





____________
…..Em Mikky…..


Quay về “Cấu trúc dữ liệu và giải thuật”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.1 khách