Ngoài khai báo variant cho mảng thì còn cách khai báo nào nữa không ạ?

[ilvba]

Ngoài cách khai báo variant như dưới đây, cho em hỏi là có cách khai báo nào cụ thể rõ ràng hơn không ạ?

[1]Sub Array_mang()
[2]  Dim myArray As Variant
[3]  Dim i As Integer
[4]  myArray = Array("conghoa", "xahoi", "chunghia", "Venezuela", "Alibaba")
[5]  For i = 0 To UBound(myArray)
[6]    Cells(i + 1, 2) = myArray(i)
[7]  Next
[8]End Sub

Chú yaf vào dòng code thứ 4 là cái em muốn dùng để nạp giá trị cho mảng cho nó nhanh ạ.
Nhưng ở dòng code thứ 2, em không biết nên khai báo như nào ngoài Variant.
Ai biết xin chỉ cho em với ạ.

 

[ThangCuAnh]

He he, user bình thường họ không biết vào chọn Unicode như bác đâu bác batman ơi. Họ cứ Windows default mà phang thôi.
Thế bác thử để BOM, mở bằng Word thử nó ra thế lào?
Thế bác đã thử với Wordpad, Write chưa ?

 

[batman1]

Vì bác test với array chứa data thuần nên không sao, chứ đụng tới variant của variant item, hay array trong variant item, hay Object trong variant item, thì cu anh tui không biết sẽ "như thế lào" Ví dụ nếu có chứa pointer, CopyMemory xong, Erase thằng source, Erase luôn thằng Dest, không chết là may mắn lắm rồi đấy.

Thế thì cứ đợi đến lúc người ta "chứ đụng tới ..." hãy chỉ trích. Ai đời người ta "chưa đụng tới ..." mà mình lại nghĩ là người ta sẽ đụng tới để chỉ trích.

 

[ThangCuAnh]

Hì hì, ai cấm thành viên khác trên diễn đàn này download cái module ấy về nhỉ, rồi họ dùng ra sao kệ họ chứ. Họ ưng thì nhét Integer, Boolean, Double, Long... trong đó thì không sao đi, lỡ họ ưng họ nhét cái Dictionary object, hay UserForm object, hay string, hay array khác vào trong item của array thì sao ? Ai lường trước được ?
Bác Tuân thử test trường hợp array có các item là string (BSTR) chưa, CopyArray xong, Erase thằng Source đi, mở memory hay debug xem item trong thằng Dest còn gì không ?

 

[batman1]

He he, user bình thường họ không biết vào chọn Unicode như bác đâu bác batman ơi. Họ cứ Windows default mà phang thôi.

Thế bạn đòi thế nào? Chủ chủ đề cần xuất tiếng Việt ra tập tin TXT. Rõ ràng không thể xuất ANSI được mà phải xuất unicode. Nếu người dùng không biết chọn như bạn nói thì không bao giờ họ có thể mở tập tin TXT unicode trong Word vì đơn giản là họ không biết. Vậy thì bạn đề nghị thế nào? Tập tin TXT phải là unicode vì ngược lại sẽ mất tiếng Việt. Chỉ có 2 cách:

- user không mở được tập tin tiếng Việt vì không biết. Vậy sa thải user.
- user không mở được tập tin tiếng Việt vì không biết. Vậy hướng dẫn cho user, cho user đi học một khóa.

Bạn chọn cách nào? Muốn mở được tập tin TXT tiếng Việt thì bắt buộc phải biết chọn encoding. Không còn cách thần diệu nào cả..

Thế bác thử để BOM, mở bằng Word thử nó ra thế lào?
Thế bác đã thử với Wordpad, Write chưa ?

Code của tôi ở bài #3 có cần BOM gì đâu? Chỉ có bạn nói phải có BOM thôi. Đấy là "yêu sách" của bạn chứ có phải của tôi đâu?

Với tôi BOM hay không có BOM thì ruột vẫn là unicode.

Và bây giờ chính bạn thấy là có BOM (là yêu sách của bạn chứ không phải của tôi) thì lại có vấn đề với Word

Thằng notepad, Word đã hiển thị được "sướng", FileSystemObject đọc được thì chứng tỏ ruột, nội dung chuẩn. Còn nếu WordPad không mở được thì lỗi của nó là có hạn chế, chưa thông minh lắm. Thế thôi.

 

[Kiều Mạnh]

Hì hì, tui biết chứ, nghĩ trong đầu là chắc hồi code cái modFastArray gì đó, bác chưa nghiên cứu hay lường trước, test kỹ hết về SAFEAARRAY, modFastArray.
Bác @kieu manh vào xin bác Tuân mấy cái source Delphi về thao tác SafeArray về ngâm cứu đi nè

Biết thì cho Mạnh đi còn keo người khác ... muốn lắm nhưng ngại

 

[batman1]

Hì hì, ai cấm thành viên khác trên diễn đàn này download cái module ấy về nhỉ, rồi họ dùng ra sao kệ họ chứ. Họ ưng thì nhét Integer, Boolean, Double, Long... trong đó thì không sao đi, lỡ họ ưng họ nhét cái Dictionary object, hay UserForm object, hay string, hay array khác vào trong item của array thì sao ? Ai lường trước được ?

Dao là cần thiết. Nếu người ta mua dao về để giết ông hàng xóm thì trách họ, cho họ đi bóc lịch chứ ai có quyền bắt nhà sản xuất dao? Ai sáng tạo thêm, nghĩ thêm chức năng cho dao thì họ chịu chứ sao nhà sản xuất dao phải tự hành hạ mình?

Bác Tuân thử test trường hợp array có các item là string (BSTR) chưa, CopyArray xong, Erase thằng Source đi, mở memory hay debug xem item trong thằng Dest còn gì không ?

Nếu bạn đọc kỹ chủ đề kia thì bạn sẽ thấy là chuyện bị mất Pointer đã được bàn tới. Bạn tham gia chưa lâu nên cứ nghĩ ở GPE chưa có gì cả. Chỉ đợi bạn đến mở mang cho đầu óc.

Bài đã được tự động gộp: 7/7/19

Biết thì cho Mạnh đi còn keo người khác ... muốn lắm nhưng ngại

Con trai mà như con gái vậy? Nhiều lúc muốn lắm nhưng ngại, nhưng sợ, xấu hổ.
....



....
Để "triệt đường sống" của những suy nghĩ "đen tối" thì tôi nói toặc móng heo: tôi đang nói về chuyện tỏ tình trước của con gái.

 

[VetMini]

Hì hì, ai cấm thành viên khác trên diễn đàn này download cái module ấy về nhỉ, rồi họ dùng ra sao kệ họ chứ. Họ ưng thì nhét Integer, Boolean, Double, Long... trong đó thì không sao đi, lỡ họ ưng họ nhét cái Dictionary object, hay UserForm object, hay string, hay array khác vào trong item của array thì sao ? Ai lường trước được ?
Bác Tuân thử test trường hợp array có các item là string (BSTR) chưa, CopyArray xong, Erase thằng Source đi, mở memory hay debug xem item trong thằng Dest còn gì không ?

Lường trước mần chi? Đã "lỡ họ ưng" thì họ tự biết tìm hiểu điểm lợi hại. Mà không biết thì cho nó cơ-rát vài lần tự động biết.
100 người mua xe máy chạy thì hơn 90 chỉ cần biết mở máy xe lên, sang số, và cưỡi. Chẳng nhẽ bắt họ phải biết hết những trường hợp chổng vó... hay sao?
Nói chuyện cao xa quá chẳng khác nào chính khách bàn kinh tế vĩ mô vi mô...
(mà hình như trình độ pon tơ pon tọt ở đây là cỡ Kế Lượng Kinh Tế Học - Econometrics, chứ chẳng phải Kinh Tế thường)

 

[Kiều Mạnh]

Eo ôi khiếp mò Google tới lui nó lại keo tới trang này ... luyện diết tới một ngày nào đó chắc sẻ ngộ ra quá
GPE Mình loanh quanh toàn code hay hơn rất nhiều mấy trang tây ... tàng kinh các có trong tầm tay mà ko biết gắp ra xài cứ chạy đi mô xa xôi chi cho mệt lắm lắm