Tại sao Application.Clean() xóa các ký tự có thể in?

Question

Bounty Câu hỏi:

Trong khi có một câu trả lời mà cung cấp một lời giải thích hợp lý, tôi muốn để xác định xem phần cụt của chuỗi xảy ra vì Clean() là một WorksheetFunction và lý do đằng sau vấn đề đó. Làm WorksheetFunctions khi được gọi bằng cách VBA chuyển chuỗi vào một "ô" để nói cắt cụ nào tại số null Chr(0)?

Câu hỏi gốc:

Tại sao Application.Clean phương pháp TestIt 's loại bỏ tất cả các ký tự sau Chr(0) mặc dù họ có thể in được? TestIt2 trả về đúng 8 ký tự sau khi thực hiện thay thế trên null Chr(0).

Edit:
Cần lưu ý là một số phiên bản của Excel sẽ yêu cầu bạn phải viết Application.WorksheetFunction.Clean()
để kiểm tra lỗi này.

Mã

Sub TestIt() 
    Dim TryIt As String 

    TryIt = "Test" & Chr(0) & "asdf" 
    MsgBox Len(TryIt) 'Prints 9 
    TryIt = Application.Clean(TryIt) 
    MsgBox Len(TryIt) 'Prints 4 

End Sub 

và

Sub TestIt2() 
    Dim TryIt As String 

    TryIt = "Test" & Chr(0) & "asdf" 
    MsgBox Len(TryIt) 'Prints 9 
    TryIt = Replace(TryIt, Chr(0), "") 
    MsgBox Len(TryIt) 'Prints 8 

End Sub 

Answer 1

Câu trả lời cho câu hỏi này có vẻ rất đơn giản: xóa tất cả các ký tự sau chr(0) là lỗi.

Clean được thiết kế để JUST loại bỏ chr(0) cũng như ký tự không in khác, như đã nêu trong tài liệu tham khảo ngôn ngữ VBA:

Chức năng sạch được thiết kế để loại bỏ các 32 ký tự không in đầu tiên trong ASCII 7-bit mã (giá trị 0 đến 31) từ văn bản.

Clean công trình như mong đợi cho tất cả các đề cập chr() giá trị khác TRỪ chr(0) sau đó nó loại bỏ rõ ràng tất cả các ký tự sau.

Nếu bạn phải làm việc với giá trị null, một số loại chuyển đổi sẽ là cần thiết. Bạn có thể nhận được kết quả mong đợi bằng cách làm một cái gì đó giống như TryIt = Replace(TryIt, Chr(0), Chr(1)) sau đó kết quả làm việc như mong đợi (và vì nó làm cho tất cả các 31 chr() mã khác mà Clean được thiết kế để loại bỏ):

Sub TestIt3() 

Dim TryIt As String 
Dim iCounter As Integer 

For iCounter = 0 To 31 
    TryIt = "Test" & Chr(iCounter) & "asdf" 
    TryIt = Replace(TryIt, Chr(0), Chr(1)) 
    Debug.Print "chr(" & iCounter & ")" & " " & Len(TryIt) 
    TryIt = Application.Clean(TryIt) 
    Debug.Print "cleaned - chr(" & iCounter & ")" & " " & Len(TryIt) 
Next iCounter 

End Sub 

Answer 2

@Gserg là đúng trong các ý kiến ​​trên

Visual Basic không thể xử lý chuỗi chấm dứt bởi một nhân vật NULL. Trong thực tế tất cả các DLL chấm dứt chuỗi theo cách đó. Chr(0) được coi là ký tự kết thúc cho chuỗi.

Đây là cách tốt nhất để kiểm tra.

Sub TestIt() 
    Dim TryIt As String 

    TryIt = "Test" & Chr(0) & "asdf" 

    Debug.Print Len(TryIt) 
    Debug.Print TryIt 

    ThisWorkbook.Sheets(1).Range("A1").Value = TryIt 
End Sub 

này sẽ viết chỉ là "thử nghiệm" trong phòng giam A1

Cách tốt nhất là để xử lý nó như bạn đang làm việc đó. Sử dụng .Replace. Cách thay thế khác (dài hơn) là sử dụng INSTR.