Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

xanburzum

[Resolvido] Popualar o Select Box

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

Objectivo: Popualar o Select Box ,com conteúdo de um arquivo, delimitada pelo Hard Return.Parâmetros: FileName: caminho completo do arquivo no servidor. Utiliza cboItems como nome de seleção

 

 

<%
Function PopulateSelectBoxFromFile(FullPath)

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

  'Get file conteúdo  
  set objFso = Server.CreateObject("Scripting.FileSystemObject")
  Set objTextStream = objFso.OpenTextFile(FullPath, ForReading)
  strContents = objTextStream.ReadAll
  objTextStream.Close

  'Dividir o conteúdo do arquivo em linhas
  arrContents = Split(strContents, vbCrlf)
  lCount = UBound(arrContents) 
  response.write "<SELECT NAME = 'cboItems'>"
  'Popular o select box
  For lCtr = 0 To lCount
	response.write "<OPTION VALUE "
	if lCtr = 0 then response.write " SELECIONADO "
	response.write "= '" & arrContents(lctr) & "'>"
	response.write arrContents(lctr) & "</OPTION>"
  Next
  response.write "</SELECT>"
  set objTextStream = Nothing
  set objFSO = Nothing
End Function
%>

<!-- EXEMPLO -->   
  <HTML>
  <BODY>
  <FORM NAME = MyForm METHOD = POST ACTION = 'test.asp'>
  <%
   PopulateSelectBoxFromFile "C:\MeuTextFile.txt"
   %>
   </BODY>
   </HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito