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:

<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>

HTML Web Page In-line Output:

Sample Display: " a adljl klj lsfdf f sfd dfsfs "
Sample Storage: "    a  adljl   klj lsfdf   f  sfd  dfsfs    "
Start Removal of Multiple Spaces
"dfsfs "
"sfd dfsfs "
"f sfd dfsfs "
"lsfdf f sfd dfsfs "
"klj lsfdf f sfd dfsfs "
"adljl klj lsfdf f sfd dfsfs "
"a adljl klj lsfdf f sfd dfsfs "
" a adljl klj lsfdf f sfd dfsfs "
End of Recursion

Another Sample Display: "a adljl klj lsfdf f sfd dfsfs "
Sample Storage: "a  adljl   klj lsfdf   f  sfd  dfsfs    "
Start Another Removal of Multiple Spaces
"dfsfs "
"sfd dfsfs "
"f sfd dfsfs "
"lsfdf f sfd dfsfs "
"klj lsfdf f sfd dfsfs "
"adljl klj lsfdf f sfd dfsfs "
"a adljl klj lsfdf f sfd dfsfs "
End of Recursion

Another Sample Display: " a adljl klj lsfdf f sfd dfsfs"
Sample Storage: "    a  adljl   klj lsfdf   f  sfd  dfsfs"
Start Anothe Removal of Multiple Spaces
"dfsfs"
"sfd dfsfs"
"f sfd dfsfs"
"lsfdf f sfd dfsfs"
"klj lsfdf f sfd dfsfs"
"adljl klj lsfdf f sfd dfsfs"
"a adljl klj lsfdf f sfd dfsfs"
" a adljl klj lsfdf f sfd dfsfs"
End of Recursion

Another Sample Display: "a adljl klj lsfdf f sfd dfsfs"
Sample Storage: "a  adljl   klj lsfdf   f  sfd  dfsfs"
Start Anothe Removal of Multiple Spaces
"dfsfs"
"sfd dfsfs"
"f sfd dfsfs"
"lsfdf f sfd dfsfs"
"klj lsfdf f sfd dfsfs"
"adljl klj lsfdf f sfd dfsfs"
"a adljl klj lsfdf f sfd dfsfs"
End of Recursion

Link:http://output.to/sideway/default.asp?qno=170800039

ShuowenJiezi Chinese Character Radicals 㹜

Chinese ShuowenJiezi Radical 378 㹜(U+3E5C)

Section 分部	Character 漢字 3
部	㹜 U+3E5C 兩犬相齧也从二犬凡㹜之屬𣅜从㹜語斤切 last updated 29March2017
	㺇 U+3E87 司空也从㹜𦣞聲復說獄司空息兹切 last updated 29March2017 獄 U+7344 确也从㹜从言二犬所以守也魚欲切 last updated 29March2017

AUG 2017

S	M	T	W	T	F	S

		1	2	3	4	5
6	7	8	9	10	11	12
13	14	15	16	17	18	19
20	21	22	23	24	25	26
27	28	29	30	31

OCT 2016

S	M	T	W	T	F	S

						1
2	3	4	5	6	7	8
9	10	11	12	13	14	15
16	17	18	19	20	21	22
23	24	25	26	27	28	29
30	31

Sideway BICK Blog

31/08