Sideway
output.to from Sideway
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:

close

References

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

Latest Updated LinksValid XHTML 1.0 Transitional Valid CSS!Nu Html Checker Firefox53 Chromena IExplorerna
IMAGE

Home 5

Business

Management

HBR 3

Information

Recreation

Hobbies 8

Culture

Chinese 1097

English 339

Reference 79

Computer

Hardware 249

Software

Application 213

Digitization 32

Latex 52

Manim 205

KB 1

Numeric 19

Programming

Web 289

Unicode 504

HTML 66

CSS 65

SVG 46

ASP.NET 270

OS 429

DeskTop 7

Python 72

Knowledge

Mathematics

Formulas 8

Algebra 84

Number Theory 206

Trigonometry 31

Geometry 34

Coordinate Geometry 2

Calculus 67

Complex Analysis 21

Engineering

Tables 8

Mechanical

Mechanics 1

Rigid Bodies

Statics 92

Dynamics 37

Fluid 5

Fluid Kinematics 5

Control

Process Control 1

Acoustics 19

FiniteElement 2

Natural Sciences

Matter 1

Electric 27

Biology 1

Geography 1


Copyright © 2000-2024 Sideway . All rights reserved Disclaimers last modified on 06 September 2019