Data commit

Task/Phrase-reversals/VBScript/phrase-reversals.vb

@@ -0,0 +1,38 @@
+Phrase = "rosetta code phrase reversal"
+
+WScript.StdOut.Write "Original String          : " & Phrase
+WScript.StdOut.WriteLine
+WScript.StdOut.Write "Reverse String           : " & RevString(Phrase)
+WScript.StdOut.WriteLine
+WScript.StdOut.Write "Reverse String Each Word : " & RevStringEachWord(Phrase)
+WScript.StdOut.WriteLine
+WScript.StdOut.Write "Reverse Phrase           : " & RevPhrase(Phrase)
+WScript.StdOut.WriteLine
+
+Function RevString(s)
+	x = Len(s)
+	For i = 1 To Len(s)
+		RevString = RevString & Mid(s,x,1)
+		x = x - 1
+	Next
+End Function
+
+Function RevStringEachWord(s)
+	arr = Split(s," ")
+	For i = 0 To UBound(arr)
+		RevStringEachWord = RevStringEachWord & RevString(arr(i))
+		If i < UBound(arr) Then
+			RevStringEachWord = RevStringEachWord & " "
+		End If
+	Next
+End Function
+
+Function RevPhrase(s)
+	arr = Split(s," ")
+	For i = UBound(arr) To LBound(arr) Step -1
+		RevPhrase = RevPhrase & arr(i)
+		If i > LBound(arr) Then
+			RevPhrase = RevPhrase & " "
+		End If
+	Next
+End Function