GUTELO
-
Total de itens
38 -
Registro em
-
Última visita
Sobre GUTELO
GUTELO's Achievements
0
Reputação
-
ola galera estou fazendo um pagina simples, que carrega apartir de uma pagina arquivo txt, (upload), serve para impressão de etiquetas, são 18 linhas e 5 colunas geralmente o arquivo é muito grande e dá mais 10 paginas, como faço uma paginação neste upload, esta aqui o script da pagina. por favor me ajudem!!! <!--#include file="freeaspupload.asp" --> <% Dim uploadsDirVar uploadsDirVar = Server.MapPath("arquivos") FUNCTION TestEnvironment() Dim fso, fileName, testFile, streamTest TestEnvironment = "" SET fso = Server.CreateObject("Scripting.FileSystemObject") IF NOT fso.FolderExists(uploadsDirVar) THEN TestEnvironment = "<B>A Pasta acessada pelo caminho " & uploadsDirVar & " não existe.</B><p>O caminho da variável <b>uploadsDirVar</b> está incorreto." EXIT FUNCTION END IF fileName = uploadsDirVar & "\test.txt" on error resume next SET testFile = fso.CreateTextFile(fileName, true) IF Err.Number<>0 then TestEnvironment = "<B>Você não tem permissões para GRAVAR ou ALTERAR dados na pasta " & uploadsDirVar & ".</B><p>Contact o administrador do sistema para alterar suas permissões." EXIT FUNCTION END IF Err.Clear testFile.Close fso.DeleteFile(fileName) IF Err.Number<>0 THEN TestEnvironment = "<B>Você não tem permissões para EXCLUIR dados da pasta " & uploadsDirVar & ".</B><p>Contact o administrador do sistema para alterar suas permissões." EXIT FUNCTION END IF Err.Clear SET streamTest = Server.CreateObject("ADODB.Stream") IF Err.Number<>0 THEN TestEnvironment = "<B>O Recurso <I>Stream</I> do objeto ADODB não está habilitado em seu servidor.</B><br>Verifique as configurações necessárias e informações sobre upgrade de sua biblioteca ADODB." EXIT FUNCTION END IF SET streamTest = Nothing END FUNCTION FUNCTION SaveFiles Dim Upload, fileName, fileSize, ks, i, fileKey Set Upload = New FreeASPUpload Upload.Save(uploadsDirVar) IF Err.Number<>0 THEN EXIT FUNCTION KS = Upload.UploadedFiles.keys IF (UBOUND(KS) <> -1) THEN FOR EACH fileKey IN Upload.UploadedFiles.keys Arquivo = uploadsDirVar & "\" & Upload.UploadedFiles(fileKey).FileName SaveFiles = "" 'SaveFiles = "<p>O arquivo <b>" & Upload.UploadedFiles(fileKey).FileName & "</b> com <b>" & Upload.UploadedFiles(fileKey).Length & " Bytes de dados </b> " NEXT SET mFileSystem = server.createobject("Scripting.FileSystemObject") IF mFileSystem.FileExists(Arquivo) = true then SET FSO = Server.CreateObject("Scripting.FileSystemObject") SET TXT = FSO.OpenTextFile(Arquivo) Registros = 0 Carregou = true Linha = txt.readLine %> <html> <head> <title>AAA</title> <style media="print"> .botao { display: none; } </style> </head> <body topmargin="0" leftmargin="0"> <table width="553" height="805"> <col width="62" style="mso-width-source:userset;mso-width-alt:2267;width:47pt"> <col width="62" style="mso-width-source:userset;mso-width-alt:2267;width:47pt"> <col width="63" span="5" style="mso-width-source:userset;mso-width-alt:2304; width:47pt"> <% primeiro = 0 DO WHILE primeiro = 0 IF TRIM(MID(Linha,5,1)) <> "*" AND TRIM(MID(Linha,10,1)) = "-" THEN AF = TRIM(MID(Linha,5,8)) ELSE AF = "" END IF DO WHILE AF <> "" AND NOT txt.AtEndOfStream Linha = txt.ReadLine ET = TRIM(MID(Linha,5,8)) IF ET = "" OR txt.AtEndOfStream THEN exit do%> <tr height="10" style="height:12.0pt"> <td height="34" class="xl24" width="71" valign="top"><font face="Courier New" size="2"><%=AF%><br> <%=ET%></font></td> <td class="xl14" width="76" height="34" valign="top"> <p><font face="Courier New" size="2"> </font></p></td> <td class="xl24" width="84" valign="top" height="34"> <p><font face="Courier New" size="2"><%=AF%><br> <%=ET%></font></p></td> <td class="xl14" width="41" height="34" valign="top"> </td> <td class="xl24" width="88" valign="top" height="34"> <p><font face="Courier New" size="2"><%=AF%> <br> <%=ET%></font></p></td> <td class="xl14" width="31" height="34" valign="top"> <p><font face="Courier New" size="2"> </font></p></td> <td class="xl24" width="73" valign="top" height="34"> <p><font face="Courier New" size="2"><%=AF%> <br> <%=ET%></font></p></td> <td class="xl14" width="49" height="34" valign="top"> <p><font face="Courier New" size="2"> </font></p></td> <td class="xl24" width="98" valign="top" height="34"> <p><font face="Courier New" size="2"><%=AF%><br> <%=ET%></font></p></td> </tr><% primeiro = 1 LOOP IF NOT txt.AtEndOfStream THEN Linha = txt.ReadLine LOOP cont = 1 DO WHILE NOT TXT.AtEndofStream AND cont < 18 IF TRIM(MID(Linha,5,1)) <> "*" AND TRIM(MID(Linha,10,1)) = "-" THEN AF = TRIM(MID(Linha,5,8)) ELSE AF = "" END IF DO WHILE AF <> "" AND NOT txt.AtEndOfStream Linha = txt.ReadLine ET = TRIM(MID(Linha,5,8)) IF ET = "" OR txt.AtEndOfStream THEN exit do %> <tr> <td height="63" class="xl24" width="71" valign="middle"><font face="Courier New" size="2"><%=AF%><br><%=ET%></font></td> <td class="xl14" width="76" height="63" valign="middle"> <p><font face="Courier New" size="2"> </font></p></td> <td class="xl24" width="84" valign="middle" height="63"> <p><font face="Courier New" size="2"><%=AF%><br><%=ET%></font></p></td> <td class="xl14" width="41" height="63" valign="middle"> <p><font face="Courier New" size="2"> </font></p></td> <td class="xl24" width="88" valign="middle" height="63"> <p><font face="Courier New" size="2"><%=AF%><br><%=ET%></font></p></td> <td class="xl14" width="31" height="63" valign="middle"> <p><font face="Courier New" size="2"> </font></p></td> <td class="xl24" width="73" valign="middle" height="63"> <p><font face="Courier New" size="2"><%=AF%><br><%=ET%></font></p></td> <td class="xl14" width="49" height="63" valign="middle"> <p><font face="Courier New" size="2"> </font></p></td> <td class="xl24" width="98" valign="middle" height="63"> <p><font face="Courier New" size="2"><%=AF%><br><%=ET%></font></p></td> </tr> <% cont = cont + 1 LOOP IF NOT txt.AtEndOfStream THEN Linha = txt.ReadLine LOOP %> </table> <% TXT.close SET TXT = Nothing Set FSO = Nothing %> <% END IF SET mFileSystem = nothing SET rsSIGEP = nothing IF Carregou THEN SaveFiles = "" 'SaveFiles = SaveFiles & "e contendo <b>" & registros & "</b> registros referentes a data <b>" & Data & "</b> foi carregado com sucesso para a base de dados.</p>" ELSE SaveFiles = SaveFiles & "referentes a data <b>" & Data & "</b> já havia sido carregado <b>anteriormente</b> para a base de dados.</p>" END IF ELSE SaveFiles = "<p>O <b>Nome do Arquivo</b> especificado no Upload não é um nome de arquivo existente no local especificado de seu sistema.</p>" END IF END FUNCTION %> <script> function onSubmitForm() { if (document.frmUpload.txt.value == "") alert("Selecione o arquivo de Amostra") else return true; return false; } </script> <% Dim diagnostics if Request.ServerVariables("REQUEST_METHOD") <> "POST" then diagnostics = TestEnvironment() if diagnostics<>"" then response.write "<font face='Verdana' size='2' color='#000080'>" response.write diagnostics response.write "<p>Após corrigir seu problema atualize esta página." response.write "</font>" else %> <form method="POST" name="frmUpload" action="upload.asp" enctype="multipart/form-data" onSubmit="return onSubmitForm();"> <div align="center"> <table width="98%" border="0" cellpadding="0" cellspacing="0" bgcolor="#6A98B3"> <tr> <td><div align="center"><strong><font color="#FFFFFF" size="3" face="Arial, Helvetica, sans-serif">ETIQUETAS</font></strong></div></td> </tr> </table> <br> <table border="1" cellpadding="0" cellspacing="0" width="55%" height="1"> <tr> <td width="25%" bgcolor="#9DB9C8" align="left" height="3" valign="middle"> <p align="left"><strong><font color="#FFFFFF" face="Verdana" size="2">Arquivo:</font></strong></p> </td> <td width="80%" align="left" height="3" valign="middle" nowrap> <p align="left"><b><font face="Verdana" size="2" color="#000080"><input type="file" name="txt" size="30" style=" FONT-WEIGHT: bold; FONT-SIZE: 10px; COLOR: #000080; BACKGROUND-COLOR: #ffffff"></font></b></p> </td> </tr> </table> </div> <p align="center"> <font face="Verdana"> <br> </font> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" width="30%"> <tr> <td width="50%" align="center"> <p align="center"> <font color="#FFFFFF" face="Arial" size="2"><b><input type="submit" value="Carregar" style=" FONT-WEIGHT: bold; FONT-SIZE: 10px; COLOR: #000080; BACKGROUND-COLOR: #ffffff" name="btnUpload" > </b></font> </p> </td> <td width="50%" align="center"> <p align="center"><font face="Verdana"><font color="#FFFFFF" face="Arial" size="2"><strong><input type="reset" value=" Limpar " style=" FONT-WEIGHT: bold; FONT-SIZE: 10px; COLOR: #000080; BACKGROUND-COLOR: #ffffff" name="btnLimpar"></strong></font> </font> </p> </td> </tr> </table> </center> </div> </form> <% end if else response.write "<font face='Verdana' size='2' color='#000080'>" response.write SaveFiles() response.write "</font>" end if %> </body> </html>
-
caro colegas preciso e uma ajudinha basica tenho uma planilha no excel que vai servir pra imprimir etiquetas e ela esta configurado desta forma. | 123252 | coluna1 |1255262| coluna 2 |1252365| coluna3 |1252536| linha1 || 123252 | coluna1 |1255262| coluna 2 |1252365| coluna3 |1252536| linha2 | 123252 | coluna1 |1255262| coluna 2 |1252365| coluna3 |1252536| linha3 só que eu preciso dar o comando para reduzir em uma linha em outra linha automaticamente ela reduza conforme o comando assim seja para a coluna existe uma forma de fazer tal procedimento!!! por favor me ajudem!
-
no bd que estou desenvolvendo tenho um formulario princpial que é carregado apartir de um relatorio, existem certos campos do formulario que já vem altomaticamente preenchido, como fazer para não digitarem ou altereem nestes campos? essa é minha primeira duvida!!! obrigado!!!!
-
no bd que estou desenvolvendo tenho um formulario princpial que é carregado apartir de um relatorio, existem certos campos do formulario que já vem altomaticamente preenchido, como fazer para não digitarem ou altereem nestes campos? essa é minha primeira duvida!!! obrigado!!!!
-
ola galera!!! preciso muito da ajuda de vc, estou montando um banco de dados para controle de processo, onde eu carrego o banco com um arquivo txt, com funções em vb, tudo esta pronto, apenas preciso de algumas funçoes como: 1- depois de carregar o banco eu tenho um formulario de envio dos dados, (botão clik), gostaria de antes de enviar para o formulario principal o arquivo me aparecesse em segundo formulario com alguns campos para confirmação de salvamento do dados. essa é minha primeira duvida!! obrigado pela ajuda
-
explicando melhor!! Tenho uma placa mãe vx-pro chipset n° pc82c371usb, com um processador 166 pentium instalado. Esta placa possui tanto slots para memória dimm , quanto memória simm. Estava instalada nela 16 mega de memória SIMM (72 vias), acontece que eu resolvi fazer um upgrade e comprei um pente de 128 MB de memória DIMM, para minha surpresa ao ligar o micro a bios reconheceu apenas 32 MB de memória. será que como resolver????? aguardo!!!!!
-
descupe mais não conhecia esta fução, mais era o que eu precisava. obrigado!!!!
-
COMO IMPORTAR OS ITENS ? SEJA MAIS CLARO!!!
-
ola pessal! captuei um banco de dado, so que ao abri-lo abre direto no formulário, como faço para anlisar as tabelas do banco até para modificações do banco, parece que esta protegido. pesso uma ajuda por favor.
-
TENHO UMA PASTA OND EXISTEM VARIAS PLANILHAS (MENU), A, B, C , D, TRABALHO COM OS BOTÕES SALVAR IMPRIMIR TUDO EM MACRO, SO QUE AGORA ESTA DANDO ERRO NO SALVAMENTO DE UMA PLANILHA, AO CLICAR O BOTÃO SALVAR. 1º PRECISO SALVAR A PLANILHA E TODO SEU CONTEÚDO QUEBRANDO OS VINCULOS DA PLANILHA PRINCIPAL. 2º ESTA DANDO ERRO NESTA REFERENCIA VEJA SE ESTA CERTO O QUE ESTA OU ME DEI OUTA IDEIA DE COMO SALVAR A PLANILHA. Sub salvarIMP_ORDAMP() Sheets("IMP_ORDAMP").Select Sheets("IMP_ORDAMP").Copy Before:=Sheets(1) Referencia = Mid(Range("AK4").FormulaLocal, 2) Range("AK4").Value = Range(Referencia).Value Referencia = Mid(Range("AX10").FormulaLocal, 2) Range("AX10").Value = Range(Referencia).Value Range("B15").Value = extenso(Range("AX10").Value) Referencia = Mid(Range("G10").FormulaLocal, 2) Range("G10").Value = Range(Referencia).Value ME AJUDE!!!
-
ola pessaol!! eu pegunto, existe um site que fale somente sobre excel. obrigado.