blob: 83ce3236c37f33fc4624636bbd23970f4f596788 (
plain)
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
32
33
|
' Challenge 001
'
' Challenge #1
' Write a script to replace the character ‘e’ with ‘E’ in the string
' ‘Perl Weekly Challenge’. Also print the number of times the character ‘e’
' is found in the string.
function replace_e(byref text as string) as integer
dim i as integer, count as integer
for i=1 to len(text)
if mid(text,i,1)="e" then
text = left(text, i-1) & "E" & mid(text, i+1)
count = count+1
end if
next i
replace_e = count
end function
function join_args() as string
dim i as integer, sep as string, result as string
sep = ""
i = 1
do while command(i)<>""
result = result & sep & command(i)
sep = " "
i = i+1
loop
join_args = result
end function
dim text as string
text = join_args()
print replace_e(text);" ";text
|
