Ir para conteúdo

POWERED BY:

Arquivado

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

xanburzum

[Resolvido] remover todos os espaços desnecessários

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

Este script irá remover todos os espaços desnecessários e liberar processamento....

 

<%Response.Expires = 0%>
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
<%
If Session("Number") <> "" Then
Dim FileName
FileName = Session("FileName")
Response.Write FileCount
Response.Write Session("Number") & " Linhas limpas em " & FileName & ".<br>"
Session.Abandon
End If

If Session("FileType") <> "" Then
Dim FileType
FileType = Session("FileType")
Session.Abandon
End If
%>
<H1 align=center><FONT color=blue><U><EM>Limpar</EM></U></FONT></H1>
<form action="limpar_arq.asp" method=post name="fileclean">
<input type=radio name=fileType value=asp>Somente os arquivos ASP<br>
<input type=radio name=fileType value=html>Somente os arquivos HTML<br>
<input type=radio name=fileType value=php>Somente os arquivos PHP<br>
<input type=radio name=fileType value=cfm>Somente os arquivos Cold Fusion<br>
<input type=submit name="find" value="Find files"><br><br>
<%
Dim objFSO, PhysicalPath, PathInfo, objFile, objFolder, objFolderContents
PathInfo = Request.ServerVariables("PATH_INFO")
PhysicalPath = Server.MapPath(PathInfo)

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.GetFile(PhysicalPath)

Set objFolder = objFile.ParentFolder

Set objFolderContents = objFolder.Files

Response.Write "Seu conteúdo das pastas " & objFolderContents.Count & " arquivos<br><br>"
Dim j
j = 0
If objFolder <> "" Then
	Response.Write "<Select Name=filename size=1> Arquivos ASP são"
For Each FileItem In objFolderContents
	If FileType <> "" Then
	Dim extLen
	ExtLen = Len(FileType)
		If Right(FileItem.Name, extLen) = FileType Then
		j = j + 1
		Response.Write "<option>" & FileItem.Name & "</option>" & VbCrlf
		End If
	Else
		If Right(FileItem.Name, 4) = ".asp" Then
		j = j + 1
		Response.Write "<option>" & FileItem.Name & "</option>" & VbCrlf
		End If
	End if
Next
	Response.Write "</select>"
	If FileType <> "" Then
	Response.Write " Existem " & j & " " & FileType & "  Arquivos <br>"
	Else
	Response.Write " Existem " & j & "Arquivos asp  <br>"
	End If
Else
	Response.Write "Sem Arquivos "
End If
%>
<P align=left><INPUT name="clean" type=submit value="limpar arquivos"></P>
  <P align=left><INPUT name="cleanAll" type=submit value="limpar todos arquivos"></P>
</form>
</BODY>
</HTML>

limpar_arq.asp

<%Response.Expires = 0%>

<%
If Request.Form("clean") <> "" Then

Dim ForWriting, TristateUseDefault, ForReading
ForReading = 1
ForWriting = 2
TristateUseDefault = -2

Dim FileName, objFileSys, TheFile, FileLines, WriteBack
FileName = Server.MapPath(Request.Form("filename"))

Set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
Set TheFile = objFileSys.GetFile(FileName)
Session("FileCount") = FileCount
Set FileLines = TheFile.OpenAsTextStream(ForReading, False)

Dim ReadingLine, i, Number
Dim MyArray()
ReDim MyArray(0)
i = 1
Do While FileLines.AtEndOfstream <> True
ReadingLine = FileLines.ReadLine
ReadingLine = Trim(ReadingLine)
	ReDim Preserve MyArray(i)
	MyArray(i) = Readingline
	i = i + 1
	Number = i
Loop
FileLines.Close

Set WriteBack = TheFile.OpenAsTextStream(ForWriting, TristateUseDefault)
Dim j

For j = 1 To Number - 1
WriteBack.WriteLine MyArray(j)
Next
ReDim MyArray(0)
MyArray(0) = "Nothing"

WriteBack.Close
Session("Number") = Number
Session("FileName") = Request.Form("filename")
Response.Redirect "cleanfileform.asp"

Else If Request.Form("find") <> "" Then
	Session("FileType") = Request.Form("fileType")
	Session("Number") = ""
	Response.Redirect "limparform.asp"
	End If
End If
%>

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