Member Avatar for cmcmurugan 
Public Function AddSlashes(ByVal chk1 As String) As String
Dim ss As String
Dim ss1 As String
Dim spl As String
Dim i1 As Integer
Dim j1 As Integer
spl = "$':<>[]{+}""\"
ss1 = " "
Dim l As Integer
Dim chk As String
ss = chk1

For i1 = 1 To Len(ss)
        For j1 = 1 To Len(spl)
        chk = Mid(ss, i1, 1)
                If chk = Mid(spl, j1, 1) Then
                ss1 = ss1 + "\"
                End If
        Next j1
            ss1 = ss1 + Mid(ss, i1, 1)
Next i1
AddSlashes = Trim(ss1)
End Function
  • 2 Contributors
  • 1 Reply
  • 74 Views
  • 9 Hours Discussion Span
  • Latest Post Latest Post by WaltP
Member Avatar for WaltP

What about it?

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.