Trim all those EXTRA spaces
VB forgot to add a Function strip out all those LEADING, TRAILING and EXTRA spaces in ONE Function. I have seen many attempts at doing this but think mine does it in the least amount of code. Note: = literal SPACE
AI
สรุปโดย AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
ซอร์สโค้ด
Public Function TrimALL(ByVal TextIN As String) As String TrimALL = Trim(TextIN) While InStr(TrimALL, String(2, " ")) > 0 TrimALL = Replace(TrimALL, String(2, " "), " ") Wend End Function
ความคิดเห็นดั้งเดิม (3)
กู้คืนจาก Wayback Machine