[Resolvido] arquivo em um Array

[xanburzum 169]

A função Retorna_Array_arq terá um arquivo no seu servidor e devolve como um array na memória. A função aceita um parâmetro - o caminho físico para o arquivo a ser carregado para a matriz, por exemplo, "c: \ inetpub \ wwwroot \ teste\ index.htm". A função usa o FileSystemObject para carregar o arquivo em um array. O valor de retorno da função é a matriz. Cada linha no arquivo de entrada é igual a um elemento array , por exemplo, a linha 1 será Array (1), linha 2 será Array (1), etc Se houver um erro, porque um arquivo incorreto foi passada no caminho, o função levantará um erro utilizando o objeto err.

 

Function Retorna_Array_arq(strFilePath)
	Dim arrFile()
	Dim objFSOArray
	Dim objFile
	Dim objFileTextStream

	'Se você incluir o adovbs.inc com sua página, 
'você não precisará incluir estes constantes aqui
	Const ForReading = 1
	Const TristateUseDefault = -2

	Set objFSOArray = CreateObject("Scripting.FileSystemObject")

	'Verifique se o arquivo existe
	If objFSOArray.FileExists(strFilePath) Then
		Set objFile = objFSOArray.GetFile(strFilePath)
		Set objFileTextStream = objFile.OpenAsTextStream(ForReading, TristateUseDefault)
		'ReDim o array para inicializá-lo corretamente
		redim arrFile(0)

		Do Until objFileTextStream.AtEndOfStream = True
			ReDim Preserve arrFile(ubound(arrFile) + 1)
			arrFile(ubound(arrFile)) = objFileTextStream.ReadLine
		Loop
		objFileTextStream.Close
	Else
	 'Elevar um erro personalizado para mostrar que um caminho de arquivo válido não foi fornecida
		Err.Raise vbObjectError + 1050
	End If

	ReturnArrayOfFile = arrFile

	
	Set objFSOArray = Nothing
	Set objFile = Nothing
	Set objFileTextStream = Nothing
	
End Function