Populate an HTML Select Box with a Text Files Contents

Category:

ASP, HTML and XML

Type:

Snippets

Difficulty:

Beginning

Author:

Andy

Version Compatibility: ASP

More information:

See comments for usage and example.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

<%
Function PopulateSelectBoxFromFile(FullPath)

'Purpose: Popuates and HTML Select Box with
   'Contents of a file, delimited by Hard Return
  
   'Parameters: FileName: Full Path of File On Server

'Notes: Uses cboItems as name of select box, change to
   '       suit your needes

'***********************************************************
   dim objFso, objTextStream
   dim strContents, arrContents
   dim lCtr, lCount
   Const ForReading = 1

'Get File Contents  	
   set objFso = Server.CreateObject("Scripting.FileSystemObject")
   Set objTextStream = objFso.OpenTextFile(FullPath, ForReading)
   strContents = objTextStream.ReadAll
   objTextStream.Close

'Split file contents into lines 
   arrContents = Split(strContents, vbCrlf)
   lCount = UBound(arrContents) 
   response.write "<SELECT NAME = 'cboItems'>"
   'Populate select box
   For lCtr = 0 To lCount
     response.write "<OPTION VALUE "
     if lCtr = 0 then response.write " SELECTED "
     response.write "= '" & arrContents(lctr) & "'>"
     response.write arrContents(lctr) & "</option>"
   Next
   response.write "</select>"
   set objTextStream = Nothing
   set objFSO = Nothing
End Function
%>
 
   
   <HTML>
   <BODY>
   <FORM NAME = MyForm METHOD = POST ACTION = 'test.asp'>
   <%
    PopulateSelectBoxFromFile "C:\MyTextFile.txt"
    %>
    </body>
    </html>