Results 1 to 9 of 9

Thread: Upgrade problems

Threaded View

  1. #1

    Thread Starter
    Addicted Member
    Join Date
    Sep 2005
    Location
    Madison, WI
    Posts
    136

    Upgrade problems

    I upgraded a project from VB6 to .Net, but it leaves me with this code that has errors.
    VB Code:
    1. Dim rectype As New VB6.FixedLengthString(1)
    2.         Dim trancode As New VB6.FixedLengthString(2)
    3.         Dim recbank As New VB6.FixedLengthString(9)
    4.         Dim recbank2 As String
    5.         Dim recbank3 As String
    6.         Dim recbank4 As String
    7.         Dim bankacct As New VB6.FixedLengthString(17)
    8.         Dim amount As New VB6.FixedLengthString(10)
    9.         Dim idnumber As New VB6.FixedLengthString(15)
    10.         Dim indname As New VB6.FixedLengthString(22)
    11.         Dim discretion As New VB6.FixedLengthString(2)
    12.         Dim addenda As New VB6.FixedLengthString(1)
    13.         Dim tracenumber As New VB6.FixedLengthString(15)
    14.         Dim zst As New VB6.FixedLengthString(15)
    15.         Dim counter As Short
    16.         Dim fullrec As New VB6.FixedLengthString(94)
    17.         Dim achtotal As Integer
    18.         Dim rec1p1 As New VB6.FixedLengthString(23)
    19.         Dim rec1p2 As New VB6.FixedLengthString(10)
    20.         Dim rec1p4 As New VB6.FixedLengthString(61)
    21.         Dim fullrec1 As New VB6.FixedLengthString(94)
    22.         Dim rec5p1 As New VB6.FixedLengthString(63)
    23.         Dim rec5p2 As New VB6.FixedLengthString(6)
    24.         Dim rec5p3 As New VB6.FixedLengthString(6)
    25.         Dim rec5p4 As New VB6.FixedLengthString(19)
    26.         Dim fullrec5 As New VB6.FixedLengthString(94)
    27.         Dim rec8p1 As New VB6.FixedLengthString(4)
    28.         Dim rec8p2 As New VB6.FixedLengthString(6)
    29.         Dim rec8p3 As New VB6.FixedLengthString(10)
    30.         Dim rec8p4 As New VB6.FixedLengthString(12)
    31.         Dim rec8p5 As New VB6.FixedLengthString(12)
    32.         Dim rec8p6 As New VB6.FixedLengthString(50)
    33.         Dim fullrec8 As New VB6.FixedLengthString(94)
    34.         Dim rec9p1 As New VB6.FixedLengthString(7)
    35.         Dim rec9p2 As New VB6.FixedLengthString(6)
    36.         Dim rec9p3 As New VB6.FixedLengthString(8)
    37.         Dim rec9p4 As New VB6.FixedLengthString(10)
    38.         Dim rec9p5 As New VB6.FixedLengthString(12)
    39.         Dim rec9p6 As New VB6.FixedLengthString(12)
    40.         Dim rec9p7 As New VB6.FixedLengthString(39)
    41.         Dim fullrec9 As New VB6.FixedLengthString(94)
    42.         Dim hashcount As Integer
    43.         Dim blocks As Integer
    44.         Dim blockfill As Short
    45.         Dim fillblock As Short
    46.         Dim fullfill As New VB6.FixedLengthString(94)
    47.         Dim fillstring As New VB6.FixedLengthString(10)
    48.         Dim fillstring2 As New VB6.FixedLengthString(4)
    49.         Dim fullfill3 As New VB6.FixedLengthString(94)
    50.         Dim totalblocks As Integer
    51.         fillstring.Value = "9999999999"
    52.         fillstring2.Value = "9999"
    How would you write this in .Net friendly code? I noticed a lot of the errors stem from having "VB." in front of the statement.
    Thanks
    Last edited by callydata; Sep 13th, 2005 at 11:20 AM. Reason: adding more code

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width