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

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>
<script runat="server" language="VBScript">
Dim strs
strs="    a  adljl   klj lsfdf   f  sfd  dfsfs    "
Response.Write "Sample Display: &quot;"&strs&"&quot;"&"<br />"
Response.Write "Sample Storage: &quot;"&replace(strs," ","&nbsp;")&"&quot;"&"<br />"
Response.Write "Start Removal of Multiple Spaces<br />"
Call rmvspace(strs)
Response.Write "End of Recursion<br /><br />"

Response.Write "Another Sample Display: &quot;"&ltrim(strs)&"&quot;"&"<br />"
Response.Write "Sample Storage: &quot;"&replace(ltrim(strs)," ","&nbsp;")&"&quot;"&"<br />"
Response.Write "Start Another Removal of Multiple Spaces<br />"
Call rmvspace(ltrim(strs))
Response.Write "End of Recursion<br /><br />"

Response.Write "Another Sample Display: &quot;"&rtrim(strs)&"&quot;"&"<br />"
Response.Write "Sample Storage: &quot;"&replace(rtrim(strs)," ","&nbsp;")&"&quot;"&"<br />"
Response.Write "Start Anothe Removal of Multiple Spaces<br />"
Call rmvspace(rtrim(strs))
Response.Write "End of Recursion<br /><br />"

Response.Write "Another Sample Display: &quot;"&trim(strs)&"&quot;"&"<br />"
Response.Write "Sample Storage: &quot;"&replace(trim(strs)," ","&nbsp;")&"&quot;"&"<br />"
Response.Write "Start Anothe Removal of Multiple Spaces<br />"
Call rmvspace(trim(strs))
Response.Write "End of Recursion<br /><br />"

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>

    </body>
</html>Sample Display: &quot;    a  adljl   klj lsfdf   f  sfd  dfsfs    &quot;<br />Sample Storage: &quot;&nbsp;&nbsp;&nbsp;&nbsp;a&nbsp;&nbsp;adljl&nbsp;&nbsp;&nbsp;klj&nbsp;lsfdf&nbsp;&nbsp;&nbsp;f&nbsp;&nbsp;sfd&nbsp;&nbsp;dfsfs&nbsp;&nbsp;&nbsp;&nbsp;&quot;<br />Start Removal of Multiple Spaces<br />&quot;dfsfs &quot;<br />&quot;sfd dfsfs &quot;<br />&quot;f sfd dfsfs &quot;<br />&quot;lsfdf f sfd dfsfs &quot;<br />&quot;klj lsfdf f sfd dfsfs &quot;<br />&quot;adljl klj lsfdf f sfd dfsfs &quot;<br />&quot;a adljl klj lsfdf f sfd dfsfs &quot;<br />&quot; a adljl klj lsfdf f sfd dfsfs &quot;<br />End of Recursion<br /><br />Another Sample Display: &quot;a  adljl   klj lsfdf   f  sfd  dfsfs    &quot;<br />Sample Storage: &quot;a&nbsp;&nbsp;adljl&nbsp;&nbsp;&nbsp;klj&nbsp;lsfdf&nbsp;&nbsp;&nbsp;f&nbsp;&nbsp;sfd&nbsp;&nbsp;dfsfs&nbsp;&nbsp;&nbsp;&nbsp;&quot;<br />Start Another Removal of Multiple Spaces<br />&quot;dfsfs &quot;<br />&quot;sfd dfsfs &quot;<br />&quot;f sfd dfsfs &quot;<br />&quot;lsfdf f sfd dfsfs &quot;<br />&quot;klj lsfdf f sfd dfsfs &quot;<br />&quot;adljl klj lsfdf f sfd dfsfs &quot;<br />&quot;a adljl klj lsfdf f sfd dfsfs &quot;<br />End of Recursion<br /><br />Another Sample Display: &quot;    a  adljl   klj lsfdf   f  sfd  dfsfs&quot;<br />Sample Storage: &quot;&nbsp;&nbsp;&nbsp;&nbsp;a&nbsp;&nbsp;adljl&nbsp;&nbsp;&nbsp;klj&nbsp;lsfdf&nbsp;&nbsp;&nbsp;f&nbsp;&nbsp;sfd&nbsp;&nbsp;dfsfs&quot;<br />Start Anothe Removal of Multiple Spaces<br />&quot;dfsfs&quot;<br />&quot;sfd dfsfs&quot;<br />&quot;f sfd dfsfs&quot;<br />&quot;lsfdf f sfd dfsfs&quot;<br />&quot;klj lsfdf f sfd dfsfs&quot;<br />&quot;adljl klj lsfdf f sfd dfsfs&quot;<br />&quot;a adljl klj lsfdf f sfd dfsfs&quot;<br />&quot; a adljl klj lsfdf f sfd dfsfs&quot;<br />End of Recursion<br /><br />Another Sample Display: &quot;a  adljl   klj lsfdf   f  sfd  dfsfs&quot;<br />Sample Storage: &quot;a&nbsp;&nbsp;adljl&nbsp;&nbsp;&nbsp;klj&nbsp;lsfdf&nbsp;&nbsp;&nbsp;f&nbsp;&nbsp;sfd&nbsp;&nbsp;dfsfs&quot;<br />Start Anothe Removal of Multiple Spaces<br />&quot;dfsfs&quot;<br />&quot;sfd dfsfs&quot;<br />&quot;f sfd dfsfs&quot;<br />&quot;lsfdf f sfd dfsfs&quot;<br />&quot;klj lsfdf f sfd dfsfs&quot;<br />&quot;adljl klj lsfdf f sfd dfsfs&quot;<br />&quot;a adljl klj lsfdf f sfd dfsfs&quot;<br />End of Recursion<br /><br />

HTML Web Page Embedded Output:

©sideway

ID: 170800040 Last Updated: 8/31/2017 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