Squeeze
Removes extra spaces from given string. eg. Squeeze("^^too^^many^^^spaces^^")returns "too^many^spaces". NB.Read a carat ^ as a single space above. Planet Source code mangles multiple spaces in submitted text.
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 Squeeze (ByVal strText As String) As String Dim intPos As Integer intPos = InStr(1, strText, Chr(32) & Chr(32)) If intPos = 0 Then Squeeze = Trim(strText) Else strText = _ Left(strText, intPos - 1) & _ Mid(strText, intPos + 1) Squeeze = Squeeze(strText) End If End Function
ความคิดเห็นดั้งเดิม (3)
กู้คืนจาก Wayback Machine