is this possible ?

[jamesbandido]

everytime we have a new account type we have to mod the source code as follows :

do while fnum(eof)=false
 line input cmne$, acct_type$
 select case acct_type
  case "T84" : acct_prod="SP"
  case "T14" : acct_prod="SW"
  case "T15" : acct_prod="NOS"
  case "T16" : acct_prod="SUN"
 end select
loop

now i want to read the conditions and values from a text file rather than editing the source :

do while fnum(eof)=false
  line input cmne$, acct_type$
  do while pnum(eof)=false
   line input atype$, aprod$
   if atype$ then
      aprod$
      exit do
   endif
  loop
loop

wherein the text file where i read atype$,aprod$ would contain the following :
"acct_type$="T84"","acct_prod="SP""
"acct_type$="T14"","acct_prod="SW""

such that all now i have to do is edit my text file always rather the modify and recompile ...

is this possible ?

thanks in advance ...

[Phil Weber]

Try this: First, create a file (accttypes.txt) that looks like this:

T84,SP
T14,SW
T15,NOS
T16,SUN

Next, add a reference in your project to the Microsoft Scripting Runtime (scrrun.dll). Now create a function that reads the text file and populates a Dictionary:

Private Function LoadAccountTypes(ByVal FileName As String) As Scripting.Dictionary

    Dim hFile As Integer
    Dim sText As String
    Dim Values() As String
    Dim AccountTypes As Scripting.Dictionary
    Set AccountTypes = New Scripting.Dictionary

    hFile = FreeFile
    Open FileName For Input As hFile
    Do Until EOF(hFile)
        Line Input #hFile, sText
        If Len(sText) > 0 Then
            Values = Split(sText, ",")
            AccountTypes.Add Values(0), Values(1)
        End If
    Loop
    Close hFile

    Set LoadAccountTypes = AccountTypes

End Function

Finally, modify your code to use the Dictionary to convert acct_type to acct_prod:

Dim AccountTypes As Scripting.Dictionary
Set AccountTypes = LoadAccountTypes("d:\path\accttypes.txt")

Do While fnum(EOF) = False
    Line Input cmne, acct_type
    acct_prod = AccountTypes(acct_type)
Loop