input text file

[shetlandbob]

I have the following code:

  Dim FileName As String
  Dim fileNum As Integer
  Dim variable As String
  Dim inumber As Integer

  fileNum = FreeFile()
[green]  'Open Text File For Input[/green]
  Open FileName For Input As #fileNum
  
  Do While Seek(fileNum) <= LOF(fileNum)
[green]      'Store One Line Of Text From File To Variable[/green]
       Input #fileNum, variable
       MsgBox (variable)
[green] '.... more code ....[/green]
  Loop

This loads a single line from my text file in to a variable, however I have the following in my input file

  myVariable   myInteger

How can I load this into a variable and a number? i.e. so that

  variable = myVariable
  inumber  = myInteger

Thanks

Robert Cumming

http://www.consultantengineer.co.uk

 

[longhair]

shetlandbob,
after loading the line into 'variable' why not just split it into 2 (myVariable & myInteger)?
regards,
longhair

 

[shetlandbob]

thats what i've done, was wondering if there was another way of doing it.

Robert Cumming

http://www.consultantengineer.co.uk

 

[earthandfire]

Input #filenumber takes a variable number of parameters therefore you could try (assuming file order is StringVar, IntVar):

Input #FileNum MyStringVar, MyIntVar [,etc, etc]

Hope this helps.

 

[earthandfire]

Sorry forgot a comma - should have been:

Input #FileNum, MyStringVar, MyIntVar [,etc, etc]