Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #72.7K
[CODE] Public Function removespace(ByVal strtext1 As String) As String If Not Len(strtext1) = 0 Then For K = 1 To Len(strtext1) If Mid(strtext1, K, 1) = Chr(13) Then strtext1 = Replace(strtext1, Chr(13) & Chr(10), ",") End If Next Else strtext1 = "" End If removespace = strtext1 End Function[/CODE] |
|
[CODE] Public Function AddSlashes(ByVal chk1 As String) As String [COLOR="Red"]Dim ss As String Dim ss1 As String Dim spl As String Dim i1 As Integer Dim j1 As Integer[/COLOR] spl = "$':<>[]{+}""\" ss1 = " " Dim l As Integer Dim chk As String ss = chk1 For i1 = … |