output.to from Sideway

Internet Unicode HTML CSS Scalable Vector Graphics (SVG)Extensible Markup Language (xml)ASPx Document Object Model (DOM)JavaScript~~ASP~~Misc. Resources

TOC ASP ASP Scripting ASP Object Miscellaneous Feature Server Component~~Knowledge Base~~

FSO Examples~~Recursion~~Sorting Design Feature of ASP Design Method of ASP ASP Function ConnectionString

Recursion Remove Multiple Spaces~~Remove Multiple Spaces 2~~

`-=[]⟨⟩\;',./~!@#$%^&*()_+{}|:"<>? 𝑎𝑏𝑐𝑑𝑒𝑓𝑔ℎ𝑖𝑗𝑘𝑙𝑚𝑛𝑜𝑝𝑞𝑟𝑠𝑡𝑢𝑣𝑤𝑥𝑦𝑧 Å − × ⋅∓±∘꞊﹦∗∙ ℯ 𝔸𝔹ℂ𝔻𝔼𝔽𝔾ℍ𝕀𝕁𝕂𝕃𝕄ℕ𝕆ℙℚℝ𝕊𝕋𝕌𝕍𝕎𝕏𝕐ℤ𝐴𝐵𝐶𝐷𝐸𝐹𝐺𝐻𝐼𝐽𝐾𝐿𝑀𝑁𝑂𝑃𝑄𝑅𝑆𝑇𝑈𝑉𝑊𝑋𝑌𝑍 ∼∽∾≁≂≃≄≅≆≇≈≉≌≐≠≡ ≤≥≦≧≨≩≪≫ ∈∉∊∋∌∍ ⊂⊃⊄⊅⊆⊇ 𝛼𝛽𝛾𝛿𝜀𝜁𝜂𝜃𝜄𝜅𝜆𝜇𝜈𝜉𝜊𝜋𝜌𝜎𝜏𝜐𝜑𝜒𝜓𝜔 ∀∂∃∅⦰∆∇∎∞∝∴∵ ∏∐∑⋀⋁⋂⋃ ∧∨∩∪ ∫∬∭∮∯∰∱∲∳ ∥⋮⋯⋰⋱ ‖ ′ ″ ‴ ⁄ ⁗ ʹ ʺ ‵ ‶ ‷ ﹁﹂﹃﹄︹︺︻︼ ︗ ︘ ︿﹀︽︾﹇﹈︷︸ ⏜ ⏝ ⎴ ⎵ ⏞ ⏟ ⏠ ⏡ ←↑→↓↤↦↥↧↔↕↖↗↘↙▲▼◀▶↺↻⟲⟳ ↼↽↾↿⇀⇁⇂⇃⇄⇅⇆⇇ ⇐⇑⇒⇓⇔⇌⇍⇏⇕⇖⇗⇘⇙⇙⇳⥢⥣⥤⥥⥦⥧⥨⥩⥪⥫⥬⥭⥮⥯

Draft for Information Only

Content

Knowledge Base: Examples of Recursion
 Recursively Removal of Multiple Spaces by Using VBScript

Knowledge Base: Examples of Recursion

Recursion: each item of an expression is generated by repeating a particular definition recursively.

Recursively Removal of Multiple Spaces by Using VBScript

Example of Recursively Removal of Multiple Spaces by Using VBScript.last updated 01Sep2017

ASP VbScript Command:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
    <head>
        <title>Sample Page</title>
        <meta http-equiv="Content-Type" content="text/html;charset=utf-8">
    </head>
    <body>
<%Dim strs
strs="<!DOCTYPE html>" & vbCrLf & _
"<html lang=""en"">"
Response.Write prtwoctrl("Sample Display: """&strs&"""")
Response.Write prtwoctrl("Sample Storage: """&replace(strs," ","%20")&"""")
Call prtwoctrl("Start Removal of Multiple Spaces")
Call rmv_gap(strs)
Call prtwoctrl("End of Recursion")
%>
<script language = "vbscript" runat = "server">
Function rmv_gap(blk_str)
Dim a,b,c,d
a= split(blk_str,"<",2)
Select Case ubound(a)
Case 1, "1"
b=split(a(1),">",2)
c=split(b(0)," ",2)
Select Case lcase(c(0))
Case "!doctype"
rmv_gap="<"&c(0)&">"
End Select
Case Else
rmv_gap=a(0)
End Select
Call prtwoctrl(""""&rmv_gap&"""")
End Function

Function prtwoctrl(blk_str)
Dim temp_blk_str
temp_blk_str=Replace(Replace(Replace(Replace(Replace(blk_str,"&","&amp;"),"<","&lt;"),"""","&quot;"),">","&gt;"),"%20"," ")&"<br />"
Response.Write temp_blk_str
End Function

Function rmvspace(blk_str)
Dim a,b,c
a= split(blk_str," ",2)
If ubound(a)=1  Then
    c=ltrim(a(1))
    Select Case c
        Case ""," ",null
            b= a(0)&" "
        Case Else
            b= a(0)&" "& rmvspace(c)
    End Select
Else
   b=a(0)
End IF
rmvspace=b
Response.Write  "&quot;"&b&"&quot;"&"<br />"
End Function
</script>
    </body>
</html>

HTTP Response Output:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
    <head>
        <title>Sample Page</title>
        <meta http-equiv="Content-Type" content="text/html;charset=utf-8">
    </head>
    <body>
Sample Display: &quot;&lt;!DOCTYPE html&gt;
&lt;html lang=&quot;en&quot;&gt;&quot;<br />Sample Storage: &quot;&lt;!DOCTYPE html&gt;
&lt;html lang=&quot;en&quot;&gt;&quot;<br />Start Removal of Multiple Spaces<br />&quot;&lt;!DOCTYPE&gt;&quot;<br />End of Recursion<br />
    </body>
</html>

HTML Web Page Embedded Output:

©sideway

ID: 180300008 Last Updated: 3/8/2018 Revision: 0 Ref:

References

Active Server Pages, , http://msdn.microsoft.com/en-us/library/aa286483.aspx
ASP Overview, , http://msdn.microsoft.com/en-us/library/ms524929%28v=vs.90%29.aspx
ASP Best Practices, , http://technet.microsoft.com/en-us/library/cc939157.aspx
ASP Built-in Objects, , http://msdn.microsoft.com/en-us/library/ie/ms524716(v=vs.90).aspx
Response Object, , http://msdn.microsoft.com/en-us/library/ms525405(v=vs.90).aspx
Request Object, , http://msdn.microsoft.com/en-us/library/ms524948(v=vs.90).aspx
Server Object (IIS), , http://msdn.microsoft.com/en-us/library/ms525541(v=vs.90).aspx
Application Object (IIS), , http://msdn.microsoft.com/en-us/library/ms525360(v=vs.90).aspx
Session Object (IIS), , http://msdn.microsoft.com/en-us/library/ms524319(8v=vs.90).aspx
ASPError Object, , http://msdn.microsoft.com/en-us/library/ms524942(v=vs.90).aspx
ObjectContext Object (IIS), , http://msdn.microsoft.com/en-us/library/ms525667(v=vs.90).aspx
Debugging Global.asa Files, , http://msdn.microsoft.com/en-us/library/aa291249(v=vs.71).aspx
How to: Debug Global.asa files, , http://msdn.microsoft.com/en-us/library/ms241868(v=vs.80).aspx
Calling COM Components from ASP Pages, , http://msdn.microsoft.com/en-us/library/ms524620(v=VS.90).aspx
IIS ASP Scripting Reference, , http://msdn.microsoft.com/en-us/library/ms524664(v=vs.90).aspx
ASP Keywords, , http://msdn.microsoft.com/en-us/library/ms524672(v=vs.90).aspx
Creating Simple ASP Pages, , http://msdn.microsoft.com/en-us/library/ms524741(v=vs.90).aspx
Including Files in ASP Applications, , http://msdn.microsoft.com/en-us/library/ms524876(v=vs.90).aspx
ASP Overview, , http://msdn.microsoft.com/en-us/library/ms524929(v=vs.90).aspx
FileSystemObject Object, , http://msdn.microsoft.com/en-us/library/z9ty6h50(v=vs.84).aspx
http://msdn.microsoft.com/en-us/library/windows/desktop/ms675944(v=vs.85).aspx, , ADO Object Model
ADO Fundamentals, , http://msdn.microsoft.com/en-us/library/windows/desktop/ms680928(v=vs.85).aspx