Trouble Checking For Characters Using VB.NET And Visual Studio 2005

Hello all,

I'm working on a function that takes in values in feet, inches, and fractal amounts in this format to begin through a system of textbox controls: 125' 2 1/2", strips un-needed characters (I currently have a separate function called RemoveIncorrectCharacters that uses replace to take out any characters that may be incorrectly entered by character reference of common characters available in a standard keyboard). I am using a split function and string arrays along with this to accomplish filtering the string and converting the value to decimal inches in my function. For the display in my application I have a function that takes the decimal inch value I have stored in the db and converts it to this format: 125' 2 1/2" and that is currently working properly.

The problem I am having is properly determining whether or not the character exists in the string I am working with as this function executes and as I break the string apart to process. The particular line of code in this function that I believe I am not getting right refers to this statement residing in each of my if else's: (tmpFootValStr.IndexOf("'") < 0).

I'm fairly new to the software development environment so I am new to this type of string manipulation I am attempting to incorporate into my function so for anyone who has any advice or input thanks in advance; it is greatly appreciated.

Public Function ConverToDecimalInches(ByVal LenString As String)
        ' First take the string and run it through a character stripping method
        ' that will take out all characters not needed for Feet and Inches input
        RemoveIncorrectCharacters(LenString)
        ' The newly converted string minus un-needed characters
        ' is assigned to the Global class variable strTempLentextCheck
        LenString = strTempLentextCheck
        ' First an array is declared here to take in the string and split the string
        Dim tmpStringArrayFirstRead() As String = Split(LenString, "'", LenString.Length)
        '' Variables to hold and process feet values
        Dim tmpFootVal As Double = Nothing
        Dim tmpFootValStr As String = tmpStringArrayFirstRead(0)
        ' Array string for the first read
        Dim tmpStringArraySecondRead() As String = Nothing
        ' Variables to hold and process inch values
        Dim tmpInchVal As Integer = Nothing
        Dim tmpInchValStr As String = Nothing
        ' Array string for the first read
        Dim tmpStringArrayThirdRead() As String = Nothing
        ' Variables to hold and process fraction values
        Dim tmpFractionVal As Double = Nothing
        Dim tmpFractionRightVal As String = Nothing
        Dim tmpFractionLeftVal As String = Nothing
        Dim tmpFractionValStr As String = Nothing
        ' This is used to identify the quote character
        ' and assign that value to a single string variable
        Dim tmpQuoteString As String = Chr(34)
        ' if the apostrophe exists in the string which will
        ' reside in the first spot of the array that it
        ' was previously stored in tmpStringArrayFirstRead
        If (tmpFootValStr.IndexOf("'") < 0) Then
            ' The Feet value stored in tmpFootValStr has 1
            ' subtracted from it's length to take the apostrophe off
            tmpFootValStr = Replace(tmpFootValStr, "'", "")
            ' That string value is assigned to an integer variable
            tmpFootVal = tmpFootValStr
            ' Divide by 12 to get the decimal inch value out of the feet entered
            tmpFootVal = tmpFootVal / 12
            ' This takes the second half of the string that was split
            ' and stores that temporary value in the tmpInchValStr
            tmpInchValStr = tmpStringArrayFirstRead(1)
            ' Now using the previous value tmpStringArraySecondRead
            ' is used to split that section of the string where a quote or
            ' Chr(34) exists
            tmpStringArraySecondRead = Split(tmpInchValStr, Chr(34), tmpInchValStr.Length)
            ' assign the first position of this new array to
            ' the temporary Inch string variable
            tmpInchValStr = tmpStringArraySecondRead(0)
        Else
            tmpFootVal = 0
            ' If this is the case there should only be 1 spot
            ' in tmpStringArrayFirstRead containing the
            ' whole string entered by the user
            tmpInchValStr = tmpStringArrayFirstRead(0)
            ' Now take that value and split it into another array
            ' according to a Qoute if it exists
            tmpStringArraySecondRead = Split(tmpInchValStr, Chr(34), tmpInchValStr.Length)
        End If
        ' if the apostrophe exists in the string which will
        ' reside in the first spot of the array that it
        ' was previously stored in tmpStringArraySecondRead
        If (tmpInchValStr.IndexOf(tmpQuoteString) < 0) Then
            ' Replace the quote at the end of the inch amount entered
            ' and assign the value to a string
            tmpInchValStr = Replace(tmpInchValStr, tmpQuoteString, "")
            ' The string value is assigned to an integer once the quote is gone
            tmpInchVal = tmpInchValStr
            ' tmpFractionValStr is set to the second position
            ' of the tmpStringArraySecondRead-
            tmpFractionValStr = tmpStringArraySecondRead(1)
        Else
            tmpInchVal = 0
            tmpFractionValStr = tmpStringArraySecondRead(0)
        End If
        If (tmpFractionValStr.IndexOf("/") < 0) Then
            tmpStringArrayThirdRead = Split(tmpFractionValStr, "/", tmpFractionValStr.Length)
            tmpFractionLeftVal = tmpStringArrayThirdRead(0)
            tmpFractionRightVal = tmpStringArrayThirdRead(1)
            Dim tmpRight As Integer = tmpFractionRightVal
            Dim tmpLeft As Integer = tmpFractionLeftVal
            tmpFractionVal = tmpLeft / tmpRight
        ElseIf (tmpFractionValStr.IndexOf(".") < 0) Then
            tmpFractionVal = tmpFractionValStr
        Else
            tmpFractionVal = 0
        End If
        decimalinches = tmpFootVal + tmpInchVal + tmpFractionVal
        Return decimalinches
End Function

• Visual Studio 2005 Beta 1 && Visual Studio 2005 Express Beta
• Code Change From Visual Basic.net - Visual Studio 2005
• Visual Studio 2005 BUG
• Visual Studio 6.0 && 2005
• Visual Studio 2005
• Visual Studio 2005
• Visual Studio 2005
• VISUAL STUDIO 2005
• Visual Studio 2005 And ODBC
• Questions About Visual Studio 2005
• New To Visual Basic Studio 2005
• Visual Studio 2005 Professional Vs Visual Studio.net 2005 Professional
• Visual Studio 2005 Beta 2
• Visual Studio 2005, Asp.net , Sp_setapprole
• VB 6 Code In Visual Studio 2005
• Visual Studio 2005 Standard Edition
• Making .exe In Visual Studio 2005 Beta2?
• Building Web-sites With Visual Studio 2005 Pro
• Moving A VB 6 Project To Visual Studio 2005
• How To View VB Code In Visual Studio 2005
• Visual Studio 2005 Upgrade Decision Help
• Visual Studio 2005 Standard Edition
• &lt;Chit Chat&gt; Visual Studio 2005
• Sending Information (Visual Studio Express 2005)
• How Can I Create Textboxes Array In Visual Studio 2005?
• FREE Microsoft Visual Studio 2005 Beta 2
• (RESOLVED)accessing Excel 2003 From Visual Studio 2005 Express
• Window Vista Home Edition, Can VB4 Thur Visual Studio 2005 Be Installed On It?
• Visual Studio .net 2003 And Auto Code Checking
• 2005 Management Studio Date Between Over
• SQL Server Management Studio 2005
• Vb Studio 2005 Query On Clicking On Keypress.
• Trouble Downloading VB 2005
• Visual Studio 6 And Visual Studio .Net On The Same Drive?
• Checking SQL 2005 Connection
• Microsoft Visual Studio 6/Visual Basic 6 Sp6 RELEASED!!!!
• Linking To DLL's Created In Visual Studio From Visual Basic
• Dumb Question About Visual Basic / Visual Studio...
• Compiling Visual Basic In Visual Studio?
• Newby : Visual Basic And Visual Studio
• Trouble In Replacing Characters
• Having Trouble With Reading Characters Of A File
• Visual Basic 2005
• Help With Visual Basic 2005
• Visual Basic 2005 Help
• Visual Basic 6 Or 2005?
• Visual Basic 2005
• Visual Basic 2005?
• Checking For Non ASCII Characters