Subversion Repositories DevTools

Rev

Rev 6873 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6873 Rev 6986
Line 175... Line 175...
175 
	tempSTR = Replace( tempSTR, ";", "\;" )
 175 
	tempSTR = Replace( tempSTR, ";", "\;" )
176 
	tempSTR = Replace( tempSTR, VBNEWLine, "\n" )
 176 
	tempSTR = Replace( tempSTR, VBNEWLine, "\n" )
177 
	Format4Java = tempSTR
 177 
	Format4Java = tempSTR
178 
End Function
 178 
End Function
179 
'-----------------------------------------------------------------------------------------------------------------------------
 179 
'-----------------------------------------------------------------------------------------------------------------------------
- 
 
 180 
Function JSEncode ( SSstr )
- 
 
 181 
	Dim tempSTR
- 
 
 182 
	tempSTR = SSstr
- 
 
 183 
    If SSstr <> "" Then
- 
 
 184 
        tempSTR = Replace( tempSTR, "'", "&#39;" )
- 
 
 185 
        tempSTR = Replace( tempSTR, """", "&#34;" )
- 
 
 186 
    End If
- 
 
 187 
	JSEncode = tempSTR
- 
 
 188 
End Function
- 
 
 189 
 
- 
 
 190 
'-----------------------------------------------------------------------------------------------------------------------------
180 
Function Format4HTML ( SSstr )
 191 
Function Format4HTML ( SSstr )
181 
	If IsNull(SSstr) Then Exit Function
 192 
	If IsNull(SSstr) Then Exit Function
182 
	Dim tempSTR
 193 
	Dim tempSTR
183 
	tempSTR = SSstr
 194 
	tempSTR = SSstr
184 
	tempSTR = Replace( tempSTR, "&", "&amp;" )
 195 
	tempSTR = Replace( tempSTR, "&", "&amp;" )