Converting Flat File to Access

mmcdonal · July 6th, 2007, 02:28 PM

Also, try typig some of this in. See if when you type bEnd = that you get an autocomplete with a True False selection.

mmcdonal

arholly · July 6th, 2007, 02:30 PM

Quote:

quote:Originally posted by mmcdonal
I ran this and it worked. Did we spell Boolean correctly?

Dim bEnd As Boolean

bEnd = False

MsgBox bEnd

mmcdonal

Sure looks right to me.

Code:

Dim objFSO As Variant
Dim objFile As Variant
Dim sFileName As String
Dim sContents As String
Dim sTopic As String
Dim sDesc As String
Dim sColName As String
Dim rs As ADODB.Recordset
Dim sSQL As String
Dim bEnd As Boolean

bEnd = False

MsgBox bEnd

arholly · July 6th, 2007, 02:33 PM

Quote:

quote:Originally posted by mmcdonal
Also, try typig some of this in. See if when you type bEnd = that you get an autocomplete with a True False selection.

mmcdonal

I thought of that, tried it, and got the same thing.

arholly · July 6th, 2007, 02:37 PM

Quote:

quote:Originally posted by mmcdonal
If bDesc = True And sColName <> "End" Then
   sDesc = sDesc & Right(sContents, (Len(sContents) - 5))
End If

Select Case
   Case "DESC"
        bDesc = True
        sDesc = Right(sContents, (Len(sContents) - 5))
   Case "END "
        bEnd = True
        bDesc = False
End Select

So, just so I can understand, this is starting on the line beginning with DESC and continuing till it finds the "END " line? Because that would be the ideal situation.

arholly · July 6th, 2007, 02:41 PM

Okay, got the bEnd problem fixed. I was dumb.

arholly · July 6th, 2007, 02:48 PM

Okay, it might be because I put the new code in the wrong order, but this chunk of code is giving me an invalid call procedure or argument.

Specifically it is the sixth line down of this chunk.

Code:

   Set objFile = objFSO.OpenTextFile(sFileName)
       Do Until objFile.AtEndOfStream
          sContents = objFile.ReadLine
          sColName = Left(sContents, 4)
          If bDesc = True And sColName <> "End" Then
            sDesc = sDesc & Right(sContents, (Len(sContents) - 5))
          End If
          Select Case sColName
            Case "Topi"
                sTopic = Right(sContents, (Len(sContents) - 6))
            Case "DESC"
                bDesc = True
                sDesc = Right(sContents, (Len(sContents) - 5))
            Case "END"
                bEnd = True
                bDesc = False
'Other cases?
          End Select

mmcdonal · July 9th, 2007, 06:09 AM

Okay, do this first:

If bDesc = True And sColName <> "End " Then

You have to add that space for sColName since there are 4 characters in that string.

I am not sure why this code doesn't work since I tried it and it works for me.
sDesc = sDesc & Right(sContents, (Len(sContents) - 5))

mmcdonal