QTP - UFT - Can you write a script to sort "uftquestions" as "efinoqssttuu"

Link to Mandatory QTP /UFT Interview Questions to read before Interview

 

One of the best method I would use for sorting is using object of "System.Collections.ArrayList"

Code:
Set o1 = Createobject("system.collections.ArrayList")
strInput = "UFTQuestions"
For k = 1 To len(strInput)
    o1.Add mid(strInput,k,1)
Next
o1.sort

For uj = 0 to o1.count-1
    strOutput = strOutput & o1(uj)
Next
msgbox strOutput

Output:- strOutput is "eFinoQsstTuU"

Happy reading,
Sreenu Babu

Link to Mandatory QTP /UFT Interview Questions to read before Interview

QTP - UFT - How to open a text file using VBScript or How to open a flat file using VBScript

Link to Mandatory QTP /UFT Interview Questions to read before Interview

Open text file can be opened using "Scripting.FileSystemObject"

Syntax
filename = "c:\sample.txt"
strmode = 2
Set o1 = Createobject("Scripting.Filesystemobject")
If o1.FileExists(filename) = true Then
    set r1 = o1.OpenTextFile filename,strmode
 else
    ExitTest
End If
Msgbox r1.readall()

strMode represents the File Read mode and Any Text file can be opened in the following modes

ForReading  1  Open a file for reading only. You can't write to this file.
ForWriting 2 Open a file for writing.
ForAppending 8 Open a file and write to the end of the file.

Link to Mandatory QTP /UFT Interview Questions to read before Interview