Grab a line of text, or all if you need, split them by the delimiter, then sort through them. I wrote a function in VB6 for this if you want.
Public Function GetVarFromFile(ByVal iVarIndex_Base0 As Integer, Optional bVerbose As Boolean) As Variant
On Error GoTo FileError
Dim slineTemp As String
Dim sArr() As String
Dim varr As Variant
Dim dTemp As Double
Dim d As Double
Dim dVarCount As Double
If ReadAccessAllowed = True Then
If LineSaftey = True Then
'Line Input #iFileNumber, sLine
' If Left(sline, 1) = Chr(34) And Right(sline, 1) = Chr(34) Then
' slineTemp = Mid(sline, 2, Len(sline) - 2)
' Else
' slineTemp = sline
' End If
'Determine the array size
d = 0
dVarCount = 0
ReDim sArr(0 To dVarCount) As String
'check the left of the line, if its a quote, the first var is a string
'otherwise, first var is a number
For d = 1 To Len(sLine)
If Mid(sLine, d, 1) = Chr(34) Then
ReDim Preserve sArr(0 To dVarCount) As String
dTemp = InStr(d + 1, sLine, Chr(34))
If dTemp = 0 Then
sArr(dVarCount) = Mid(sLine, d)
Else
sArr(dVarCount) = Mid(sLine, d + 1, dTemp - d - 1)
End If
d = InStr(InStr(d + 1, sLine, Chr(34)), sLine, ",")
dVarCount = dVarCount + 1
Else 'means its number or boolean
ReDim Preserve sArr(0 To dVarCount) As String
dTemp = InStr(d + 1, sLine, ",")
If dTemp = 0 Then
sArr(dVarCount) = Mid(sLine, d)
Else
sArr(dVarCount) = Mid(sLine, d, dTemp - d)
End If
d = InStr(d + 1, sLine, ",")
dVarCount = dVarCount + 1
End If
If d = 0 Then 'means no more
d = Len(sLine)
End If
Next d
slineTemp = sArr(iVarIndex_Base0)
varr = CVar(slineTemp)
Select Case VBA.VarType(varr)
Case vbBoolean
GetVarFromFile = CBool(varr(iVarIndex_Base0))
' If vArr(iVarIndex_Base0) = "#TRUE#" Then
' GetVarFromFile = True
' Else
' GetVarFromFile = False
' End If
' Case vbInteger
' GetVarFromFile = CInt(varr)
' Case vbDouble
' GetVarFromFile = CDbl(varr)
' Case vbSingle
' GetVarFromFile = CSng(varr)
' Case vbLong
' GetVarFromFile = CLng(varr)
Case vbString
If VBA.IsNumeric(varr) = True Then
GetVarFromFile = CDbl(varr)
Else
If Left(CStr(varr), 1) = Chr(34) And Right(CStr(varr), 1) = Chr(34) Then
GetVarFromFile = Mid(CStr(varr), 2, Len(CStr(varr)) - 2)
Else
GetVarFromFile = CStr(varr)
End If
End If
Case Else 'what to do if not a known type
GetVarFromFile = varr
End Select
Else
Call Error("The first line has not been read", bVerbose)
End If
Else
Call Error("File not opened in read mode", bVerbose)
End If
Exit Function
FileError:
Call Error(Err.Description, bVerbose)
End Function
~~~~~~~~~~~~~~~~
This is part of a class I call my file manager. All written in VB6 for these sort of purposes. I however do not know what language you are using. Or what exactly you intend to parse with, and parse for.
