Re: Import text file as project item?

[Albert Wallace <albertfrancis at austin dot rr dot com>]

Mars,

I have sent a copy of the project to Joe.

This is the code:

 dim f as folderItem
  dim foundIt as boolean
  dim temp as string
  foundIt = false
  f = GetFolderItem("areaCodes")
  If f<>nil and f.exists then
    textIn = f.openAsTextFile
    while not(textIn.eof)
      temp = textIn.readLine
      If left(temp,3) = d then
        shemp = temp
        ring.play
        Timer1.mode = 1
        foundIt = true
      end if
    wend
    If foundIt = false then
      Wrong.play
      Timer2.mode = 1
    end if
    textIn.close
    a=""
    b=""
    c=""
    open = false
  end if

Thanks,
Albert Wallace


On Feb 29, 2004, at 8:41 PM, Mars Saxman wrote:

> albertfrancis at austin dot rr dot com wrote:
>
> > The compiled app appears in the folder with the RB project and the 
> > text
> > file. As long as I leave it in that folder, I can open the compiled 
> > app
> > and it works fine. If I drag it out onto the desktop and open it, it
> > breaks. If I drag it back in, it works.
> It would help to show us the code that uses the contents of the file.
>
> Mars Saxman
> REAL Software
>
>
>  - - -
> Unsubscribe or switch delivery mode:
> <http://support.realsoftware.com/listmanager/>
>
> Search the archives of this list here:
> <http://support.realsoftware.com/listarchives/lists.html>

- - -
Unsubscribe or switch delivery mode:
<http://support.realsoftware.com/listmanager/>

Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>