Visual Basic

jdionneaxsys wrote:

The remote server returned an error: (500) Syntax error, command unrecognized.

Dim fileExists As Boolean<br />
fileExists = My.Computer.FileSystem.FileExists("C:\Test.txt")

<br />
        Dim files As ReadOnlyCollection(Of String)<br />
        files = My.Computer.FileSystem.GetFiles("C:\", True, "*.txt")<br />

        Dim strSrc As String = "a9837498393874b8374683746386a8279323879b92837"<br />
<br />
        Dim strDelim As String = "ab"<br />
        Dim arrStrItem As String()<br />
<br />
        arrStrItem = strSrc.Split(strDelim.ToCharArray)<br />

<br />
        Dim strSrc As String = "aF00000000000000000000000000000AAABB8500FFFFFFFFDa000000000000000000000000000000666567400FFFFFFFFDbF000000000000000000000000000008AABAA700FFFFFFFFDbF0000000000000000000000000000079AAA9800FFFFFFFFCaF00000000000000000000000000000A98BA9700FFFFFFFFCb000000000000000000000000000000EEEFFEE00FFFFFFFFBa000000000000000000000000000000EEFFFFF00FFFFFFFFCbF00000000000000000000000000000EEEEFED00FFFFFFFFCa000000000000000000000000000000BCDDEDA00FFFFFFFFDbF00000000000000000000000000000BDEDDDA00FFFFFFFFCb000000000000000000000000000000666654400FFFFFFFFD"<br />
<br />
        '   LOGIC:<br />
        '       First we replace the delimiters 'a' and 'b' with '*a' and '*b' <br />
        '       to get a single string array from the source string.<br />
        '       <br />
        '       We then run through the single array and assign the individual <br />
        '       items to their own string array; arrA and arrB.<br />
<br />
        Dim strBuild As New System.Text.StringBuilder()<br />
        strBuild.Append(strSrc)<br />
        strBuild.Replace("a", "*a")<br />
        strBuild.Replace("b", "*b")<br />
        Debug.Print(strBuild.ToString)<br />
<br />
        '   GETTING A SINGLE ARRAY:<br />
        '       Here, we split the source string into an array using the <br />
        '       asterisk (the '*' character) as the delimiter. This ensures <br />
        '       that we retain the 'a' and 'b' characters, which we will need <br />
        '       later on.<br />
<br />
        Dim arrTemp As String()<br />
        arrTemp = strBuild.ToString.Split("*")<br />
<br />
        '   BUILDING NEW ARRAYS:<br />
        '       We can now use the temporary array to build two new arrays. To <br />
        '       do so, we loop through the items and examine the leftmost <br />
        '       character. If that be 'a' then we assign the item to the <br />
        '       A-array; be it 'b' then we assing it to the B-array instead.<br />
<br />
        Dim arrA As New ArrayList<br />
        Dim arrB As New ArrayList<br />
<br />
        For Each curStrItem As String In arrTemp<br />
            If curStrItem.Length > 0 Then<br />
                Select Case curStrItem.Substring(0, 1)<br />
                    Case "a"<br />
                        arrA.Add(curStrItem.Substring(1))<br />
<br />
                    Case "b"<br />
                        arrB.Add(curStrItem.Substring(1))<br />
<br />
                    Case Else<br />
                        '<br />
                        '   OOPS, something weird ... we ignore this item.<br />
                        '<br />
                End Select<br />
            End If<br />
        Next<br />
<br />
        '   DONE:<br />
        '       The arrA array-list now contains all the 'a' items and the <br />
        '       arrB array-list now contains all the 'b' items. When you get <br />
        '       here, you should probably deallocate variables, etc.<br />
<br />
        Debug.Print("A-items:")<br />
        For Each curItem As String In arrA<br />
            Debug.Print(curItem)<br />
        Next<br />
<br />
        Debug.Print("---" & vbCrLf & "B-items:")<br />
<br />
        For Each curItem As String In arrB<br />
            Debug.Print(curItem)<br />
        Next<br />
<br />
        Debug.Print("--- END ---")<br />