com esta função!

[d.eleete 0]

Esta função baixo pega os dados do txt e lista na combo-box.. porem eu queria q vcs me ajudassem se possivel a colocar um valor diferente no VALUE=""

 

Eu queria q o txt ficasse assim

 

mts;metros

pcs;peças

 

 

e na hora no html iriamos ver assim:

<select name="text1">

<option value="mts">metros</option>

<option value="pcs">peças</option>

</select>

 

 

 

Me digam se eh muuuito dificil fazer isso?

 

Segue a função!

<%Function PopulateSelectBoxFromFile()dim objFso, objTextStreamdim strContents, arrContentsdim lCtr, lCountdim FullPathConst ForReading = 1'pega conteudo do arquivoset objFso = Server.CreateObject("Scripting.FileSystemObject")Set objTextStream = objFso.OpenTextFile(Server.MapPath("unidade.txt"), ForReading)strContents = objTextStream.ReadAllobjTextStream.Close'valores do arquivo quebrados em linhasarrContents = Split(strContents, vbCrlf)lCount = UBound(arrContents) response.write "<SELECT NAME = 'txtunidade'>"'listando no selectboxFor lCtr = 0 To lCountresponse.write "<OPTION VALUE "if lCtr = 0 then response.write " SELECTED "response.write "= '" & arrContents(lctr) & "'>"response.write arrContents(lctr) & "</OPTION>"Nextresponse.write "</SELECT>"set objTextStream = Nothingset objFSO = NothingEnd Function%>

[mebkocznski 0]

Que tal assim:

 

 

Não utilize o ReadAll

 

Leia linha por linha

 

linha = ObjTextStream.ReadLineOLinha = Split(Linha,";")Response.Write "<OPtion Value='" & Linha(0) & "'>" & Linha(1) & "</option>"

[d.eleete 0]

Que tal assim:Não utilize o ReadAllLeia linha por linha

linha = ObjTextStream.ReadLineOLinha = Split(Linha,";")Response.Write "<OPtion Value='" & Linha(0) & "'>" & Linha(1) & "</option>"

Ai q ta... ele tem q ler tudo pq hj pode ter 10, mas amanhã pode ter 20 registros.. entendeu.. ;)

[mebkocznski 0]

Ultize o código abaixo

 

Do Until ObjTextStream.AtEndOfStreamlinha = ObjTextStream.ReadLineOLinha = Split(Linha,";")Response.Write "<OPtion Value='" & Linha(0) & "'>" & Linha(1) & "</option>"Loop

[d.eleete 0]

Deu o seguinte erro:

 

Tipos incompatíveis: 'linha'

/rochel/sistema/admin/produtos/form.asp, line 34

 

 

<%

Function PopSelect()

'pega conteudo do arquivo

set objFso = Server.CreateObject("Scripting.FileSystemObject")

Set objTextStream = objFso.OpenTextFile(Server.MapPath("unidade.txt"), 1)

response.write("<select>"& vbCrlf)

Do Until ObjTextStream.AtEndOfStream

linha = ObjTextStream.ReadLine

OLinha = Split(Linha,";")

Linha 34 Response.Write "<OPtion Value='" & Linha(0) & "'>" & Linha(1) & "</option>"

Loop

response.write("</select>")

End Function

%>

[mebkocznski 0]

delete....Perdão cara....Onde está Linha(0) e Linha(1)....Coloque Olinha(0) e Olinha(1)Falow !!!!

[d.eleete 0]

Perfeito, Lindo... maravilhoso..VALEU MESMO KRA.. Funcionou redondo! :) UHuuuuuHUUUUUU

[mebkocznski 0]

Antes de Popular o OptionFaça um teste para saber se a linha que ele leu não está em branco...Mais ou Menos assimlinha = ObjTextStream.ReadLineIf trim(linha) <> "" then.....End if

[d.eleete 0]

Pra quem quiser populacionar um combobox atraves de um txt...

 

o txt tem q ser assim

 

exemplo

 

SP;São Paulo

RJ;Rio de Janeiro

 

(onde a "sigla" é o value do combo box )

 

Valeu todo mundo!

 

Segue o código!

 

<%Function PopSelect()'pega conteudo do arquivoset objFso = Server.CreateObject("Scripting.FileSystemObject")Set objTextStream = objFso.OpenTextFile(Server.MapPath("unidade.txt"), 1)response.write("<select name=""txtunidade"" id=""txtunidade"" class=""campos"">"& vbCrlf)Do Until ObjTextStream.AtEndOfStreamlinha = ObjTextStream.ReadLineArrayLinha = Split(Linha,";")Response.Write "<option Value=""" & ArrayLinha(0) & """>" & ArrayLinha(1) & "</option>"&vbCrlfLoopresponse.write("</select>")End Function%>

[d.eleete 0]

Antes de Popular o OptionFaça um teste para saber se a linha que ele leu não está em branco...Mais ou Menos assimlinha = ObjTextStream.ReadLineIf trim(linha) <> "" then.....End if

Boa idéia...