aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

39
Task/Reverse-words-in-a-string/VBScript/reverse-words-in-a-string.vb
View file

@ -1,39 +0,0 @@
Option Explicit
Dim objFSO, objInFile, objOutFile
Dim srcDir, line
Set objFSO = CreateObject("Scripting.FileSystemObject")
srcDir = objFSO.GetParentFolderName(WScript.ScriptFullName) & "\"
Set objInFile = objFSO.OpenTextFile(srcDir & "In.txt",1,False,0)
Set objOutFile = objFSO.OpenTextFile(srcDir & "Out.txt",2,True,0)
Do Until objInFile.AtEndOfStream
line = objInFile.ReadLine
If line = "" Then
objOutFile.WriteLine ""
Else
objOutFile.WriteLine Reverse_String(line)
End If
Loop
Function Reverse_String(s)
Dim arr, i
arr = Split(s," ")
For i = UBound(arr) To LBound(arr) Step -1
If arr(i) <> "" Then
If i = UBound(arr) Then
Reverse_String = Reverse_String & arr(i)
Else
Reverse_String = Reverse_String & " " & arr(i)
End If
End If
Next
End Function
objInFile.Close
objOutFile.Close
Set objFSO = Nothing