GUTELO

Paginação

pergunta respondeu ao GUTELO de GUTELO em ASP

o link informado: http://scriptbrasil.com.br/forum/index.php...e=pagina%E7%E3o não acessa.

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!!!  <% 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 = "A Pasta acessada pelo caminho " & uploadsDirVar & " não existe.O caminho da variável uploadsDirVar 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 = "Você não tem permissões para GRAVAR ou ALTERAR dados na pasta " & uploadsDirVar & ".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 = "Você não tem permissões para EXCLUIR dados da pasta " & uploadsDirVar & ".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 = "O Recurso Stream do objeto ADODB não está habilitado em seu servidor. 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 = "O arquivo " & Upload.UploadedFiles(fileKey).FileName & " com " & Upload.UploadedFiles(fileKey).Length & " Bytes de dados " 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"><%=AF%> <%=ET%></td> <td class="xl14" width="76" height="34" valign="top">  </td> <td class="xl24" width="84" valign="top" height="34"> <%=AF%> <%=ET%></td> <td class="xl14" width="41" height="34" valign="top"> </td> <td class="xl24" width="88" valign="top" height="34"> <%=AF%> <%=ET%></td> <td class="xl14" width="31" height="34" valign="top">  </td> <td class="xl24" width="73" valign="top" height="34"> <%=AF%> <%=ET%></td> <td class="xl14" width="49" height="34" valign="top">  </td> <td class="xl24" width="98" valign="top" height="34"> <%=AF%> <%=ET%></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"><%=AF%> <%=ET%></td> <td class="xl14" width="76" height="63" valign="middle">  </td> <td class="xl24" width="84" valign="middle" height="63"> <%=AF%> <%=ET%></td> <td class="xl14" width="41" height="63" valign="middle">  </td> <td class="xl24" width="88" valign="middle" height="63"> <%=AF%> <%=ET%></td> <td class="xl14" width="31" height="63" valign="middle">  </td> <td class="xl24" width="73" valign="middle" height="63"> <%=AF%> <%=ET%></td> <td class="xl14" width="49" height="63" valign="middle">  </td> <td class="xl24" width="98" valign="middle" height="63"> <%=AF%> <%=ET%></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 " & registros & " registros referentes a data " & Data & " foi carregado com sucesso para a base de dados." ELSE SaveFiles = SaveFiles & "referentes a data " & Data & " já havia sido carregado anteriormente para a base de dados." END IF ELSE SaveFiles = "O Nome do Arquivo especificado no Upload não é um nome de arquivo existente no local especificado de seu sistema." 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 "" response.write diagnostics response.write "Após corrigir seu problema atualize esta página." response.write "" 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">ETIQUETAS</div></td> </tr> </table> <table border="1" cellpadding="0" cellspacing="0" width="55%" height="1"> <tr> <td width="25%" bgcolor="#9DB9C8" align="left" height="3" valign="middle"> Arquivo: </td> <td width="80%" align="left" height="3" valign="middle" nowrap> <input type="file" name="txt" size="30" style=" FONT-WEIGHT: bold; FONT-SIZE: 10px; COLOR: #000080; BACKGROUND-COLOR: #ffffff"> </td> </tr> </table> </div> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" width="30%"> <tr> <td width="50%" align="center"> <input type="submit" value="Carregar" style=" FONT-WEIGHT: bold; FONT-SIZE: 10px; COLOR: #000080; BACKGROUND-COLOR: #ffffff" name="btnUpload" > </td> <td width="50%" align="center"> <input type="reset" value=" Limpar " style=" FONT-WEIGHT: bold; FONT-SIZE: 10px; COLOR: #000080; BACKGROUND-COLOR: #ffffff" name="btnLimpar"> </td> </tr> </table> </center> </div> </form> <% end if else response.write "" response.write SaveFiles() response.write "" end if %> </body> </html>

Controle De Linha

uma questão postou GUTELO Microsoft Office

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!

Consulta Atualização

uma questão postou GUTELO Visual Basic

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!!!!

Consulta Atualização

uma questão postou GUTELO Access

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!!!!

Dividas Legais

uma questão postou GUTELO Visual Basic

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

Memoria

pergunta respondeu ao GUTELO de GUTELO em Hardware

já testei em outro pc, ele reconheceu normalmente a memoria, acho que é só no meu pc. como fazer para resolver ?

Memoria

pergunta respondeu ao GUTELO de GUTELO em Hardware

veja bem!!! So instalei a (dimm) as simm deixei fora , ou seja apenas a de 128Mb, mesmo assim rodou 4 vezes menos a sua capacidade. Já tentei de tudo nã sei mais o que fazer, como resolver??

Memoria

pergunta respondeu ao GUTELO de GUTELO em Hardware

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!!!!!

Memoria

uma questão postou GUTELO Hardware

Pessoal estou com problema na memória dimm de 128 Mb para PC 100, acontece que o computador só ler 32 Mb o que será ques esta acontecendo? por favor me ajude!!!!!

Verificar Tabela

pergunta respondeu ao GUTELO de GUTELO em Access

descupe mais não conhecia esta fução, mais era o que eu precisava. obrigado!!!!

Verificar Tabela

pergunta respondeu ao GUTELO de GUTELO em Access

COMO IMPORTAR OS ITENS ? SEJA MAIS CLARO!!!

Verificar Tabela

uma questão postou GUTELO Access

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.

Ajuda

uma questão postou GUTELO Microsoft Office

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!!!

Site

uma questão postou GUTELO Microsoft Office

ola pessaol!! eu pegunto, existe um site que fale somente sobre excel. obrigado.

Entrar

Total de itens

Registro em

Última visita

Sobre GUTELO

GUTELO's Achievements

Reputação

Paginação

Paginação

Controle De Linha

Consulta Atualização

Consulta Atualização

Dividas Legais

Memoria

Memoria

Memoria

Memoria

Verificar Tabela

Verificar Tabela

Verificar Tabela

Ajuda

Site

Navegação

Atividades