Create Vertical Strings

Category:

String Manipulation

Type:

Modules

Difficulty:

Intermediate

Author:

Michael Sena

Version Compatibility: Visual Basic 6

More information:

Also known as StringRev, this handy module is a perfect tool when you need to make Vertical Strings! There are 4 Methods in StringRev: 1. VString(text as string): Returns a 'verticalised' string 2. HString(text as string): Returns a 'horizontalised' str 3. BkwdVString(text as string): A Backward VString 4. BkwdHString(text as string): A Backward HString StringRev works such that if you use, say, string = VString("Meosoft") and it returns the string vertical and then you do string = VString(string), it doesn't reverticalise your string. Without this filter, the string would keep on doubling in size. the HString also filters out any 'new lines' so you can horizontalise a vertical string correctly. If you don't understand, play around with the code! The two backward methods allow the creation of a backward Vertical or Horizontal String. eg. BkwdHString("Meosoft") would return "tfosoeM". Same with the vertical string. Enjoy!

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
'None 'Please visit our website, which will shortly (Mid August) be 'updated: www.meosoft.tk

Code:

'         *************************************
'         * ********************************* *
'         * *   |\    /|   __       ____    * *
'         * *   | \  / |  |_       / __ \   * *
'         * *   |  \/  |eo__|oft   \___ /   * *
'         * *                               * *
'         * *     Name:  StringRev  ____    * *
'         * *  Version:  1.0       / __ \   * *
'         * *     Date:  17/07/04  \___ /   * *
'         * *   Author:  M.Sena             * *
'         * *    Email:  meo@meosoft.tk     * *
'         * *  Website:  www.meosoft.tk     * *
'         * *  Licence:  This is free to    * *
'         * *            use for non-profit * *
'         * *            and non commercial * *
'         * *            purposes.  If you  * *
'         * *            wish to use this   * *
'         * *            for any other      * *
'         * *            purposes, please   * *
'         * *            contact the author.* *
'         * ********************************* *
'         *************************************

Public Function VString(text As String) As String
Dim x As Integer, char As String, final As String
x = Len(text)
While Not x = 0
    char = Left(text, 1)
    text = Right(text, x - 1)
    final = final & char & vbLf
    x = x - 1
Wend
VString = final
End Function

Public Function BkwdVString(text As String) As String
On Error Resume Next
Dim x As Integer, char As String, final As String
x = Len(text)
While Not x = 0
    char = Right(text, 1)
    text = Left(text, x - 1)
    final = final & char & vbLf
    x = x - 1
Wend
BkwdVString = final
End Function

Public Function HString(text As String) As String
On Error Resume Next
Dim x As Integer, char As String, final As String
x = Len(text)
While Not x = 0
    char = Left(text, 1)
    text = Right(text, x - 1)
    If Not char = vbLf Then
        If Not char = vbclf Then
            final = final & char
        End If
    End If
    x = x - 1
Wend
HString = final
End Function
Public Function BkwdHString(text As String) As String
On Error Resume Next
Dim x As Integer, char As String, final As String
x = Len(text)
While Not x = 0
    char = Right(text, 1)
    text = Left(text, x - 1)
    If Not char = vbLf Then
        If Not char = vbclf Then
            final = final & char
        End If
    End If
    x = x - 1
Wend
BkwdHString = final
End Function