Vấn đề tách chuỗi trong VBA với hàm Split "ABCXYZ" => "A,B,C,X,Y,Z" (1 người xem)

[khongnhienttt]

- mình có 1 bài toán đơn giản thôi: chúng ta có chuỗi "abcxyz" và muốn có kết quả là a,b,c,x,y,z
- Nếu dùng VBA đơn thuần thì có thể duyệt qua từng kí tự bằng for và dùng toán tử ghép chuỗi sau đó cắt bỏ 1 kí tự bên phải là xong
- Tuy nhiên mình thấy cái hàm split nó tách các kí tự phân cách bỡi dấu cách, có cách nào tách ra trong trường hợp này không rồi dùng hàm join nối lại
- 1 Cái nữa là có thể dùng VBScript.Regex không
===> mình muốn không dùng vòng lặp mà có thể giải quyết được, mong các bạn giúp đỡ

 

[Vô danh Tiểu tốt]

- mình có 1 bài toán đơn giản thôi: chúng ta có chuỗi "abcxyz" và muốn có kết quả là a,b,c,x,y,z
- Nếu dùng VBA đơn thuần thì có thể duyệt qua từng kí tự bằng for và dùng toán tử ghép chuỗi sau đó cắt bỏ 1 kí tự bên phải là xong
- Tuy nhiên mình thấy cái hàm split nó tách các kí tự phân cách bỡi dấu cách, có cách nào tách ra trong trường hợp này không rồi dùng hàm join nối lại
- 1 Cái nữa là có thể dùng VBScript.Regex không
===> mình muốn không dùng vòng lặp mà có thể giải quyết được, mong các bạn giúp đỡ

Ban đầu tôi thấy câu hỏi này khá vô lý nhưng bỗng google với cụm từ "string to array vba" thì tìm được một kết quả khá hợp ý. Dưới đây là minh họa:

Function v(s As String, p As Integer)
   Dim buff() As String
   buff = Split(StrConv(s, vbUnicode), Chr$(0))
   ReDim Preserve buff(UBound(buff) - 1) 
   v = buff(p)
End Function

 

[khongnhienttt]

Ban đầu tôi thấy câu hỏi này khá vô lý nhưng bỗng google với cụm từ "string to array vba" thì tìm được một kết quả khá hợp ý. Dưới đây là minh họa:

Function v(s As String, p As Integer)
   Dim buff() As String
   buff = Split(StrConv(s, vbUnicode), Chr$(0))
   ReDim Preserve buff(UBound(buff) - 1) 
   v = buff(p)
End Function

rất cám ơn bạn nhưng code ra kết quả không đúng bạn ơi

 

[Vô danh Tiểu tốt]

Ca này khó thật, ước gì có 3 quyền trợ giúp lúc này nhỉ

 

[Phuocam]

Có lẽ là ...?

Function v(s As String)
   Dim buff() As String
   buff = Split(StrConv(s, vbUnicode), Chr$(0))
   ReDim Preserve buff(UBound(buff) - 1)
   v = Join(buff, ", ")
End Function

 

[doveandrose]

Điều này đã được đề cập
Tách chuỗi thành mảng Char() array có 2 cách
1/Sử dụng hàm StrConv như ở trên . Cách này chỉ đúng với các kí tự thuộc hệ ASCII , nằm ngoài là chết ngắc .
2/Sử dụng RegExp . Cách này áp dụng cho tất cả mọi kí tự . chỉ cần set .Pattern = "" và .Replace(Stringinput, ",") là xong

 

[khongnhienttt]

Điều này đã được đề cập
Tách chuỗi thành mảng Char() array có 2 cách
1/Sử dụng hàm StrConv như ở trên . Cách này chỉ đúng với các kí tự thuộc hệ ASCII , nằm ngoài là chết ngắc .
2/Sử dụng RegExp . Cách này áp dụng cho tất cả mọi kí tự . chỉ cần set .Pattern = "" và .Replace(Stringinput, ",") là xong

Rất cám ơn bạn, đã đúng cái mình cần, xin bạn giải thích cho mình 1 số cái:
1. buff = Split(StrConv(s, vbUnicode), Chr$(0)) : tại sao phải có dấu $ ( mình bỏ nó thấy vẫn ra kết quả)
2. tại sao phải sử dụng StrConv để chuyển sang unicode mới có thể tách được.

 

[doveandrose]

Rất cám ơn bạn, đã đúng cái mình cần, xin bạn giải thích cho mình 1 số cái:
1. buff = Split(StrConv(s, vbUnicode), Chr$(0)) : tại sao phải có dấu $ ( mình bỏ nó thấy vẫn ra kết quả)
2. tại sao phải sử dụng StrConv để chuyển sang unicode mới có thể tách được.

cái này bạn cần hỏi người viết code nhé . Có thể bạn đã nhấn nút trích dẫn nhầm người .

 

[ndu96081631]

Điều này đã được đề cập

Nó trong phần Đố vui về VBA bải 147:
http://www.giaiphapexcel.com/forum/showthread.php?7146-Đố-vui-về-VBA!&p=197896#post197896
hoặc bài khác dùng RegExp:
http://www.giaiphapexcel.com/forum/showthread.php?58332-Cách-chuyển-chuỗi-thành-mảng

 

[doveandrose]

Nó trong phần Đố vui về VBA bải 147:
http://www.giaiphapexcel.com/forum/showthread.php?7146-Đố-vui-về-VBA!&p=197896#post197896
hoặc bài khác dùng RegExp:
http://www.giaiphapexcel.com/forum/showthread.php?58332-Cách-chuyển-chuỗi-thành-mảng

ồ chào anh NDU , lần cuối được nói chuyện với "thần tượng" cách nay chắc hơn 3 tháng .
sao anh có cách tìm các bài viết liên quan trên diễn đàn rất nhanh vậy ? có bí kíp nào chỉ em với .

 

[ndu96081631]

sao anh có cách tìm các bài viết liên quan trên diễn đàn rất nhanh vậy ? có bí kíp nào chỉ em với .

Đi dự SN GPE đi rồi tôi nói cho biết! Vậy đi nha! Ẹc... Ẹc...

 

[khongnhienttt]

Đi dự SN GPE đi rồi tôi nói cho biết! Vậy đi nha! Ẹc... Ẹc...

ẹc chia sẽ đi thầy ơi, em cũng thấy lục bài trong giaiphapexcel khó quá, mà thấy mấy thầy hễ nói tới cái gì là biết nó ở đâu, chẵng lẽ thầy lưu bookmark trên trình duyệt

 

[doveandrose]

Đi dự SN GPE đi rồi tôi nói cho biết! Vậy đi nha! Ẹc... Ẹc...

Chắc không dễ ăn vậy chứ ?
SN mà có ai hỏi anh câu này chắc anh sẽ trả lời :
"Làm hết 10 lon trước đi chú em ."
Con đường nào cho em ? híc