OpenTextFile é um método na linguagem asp. Ele abre o arquivo especificado e retorna um objeto TextStream. O arquivo pode ser lido, escrito ou anexado por meio deste objeto.
OpenTextFile é um método em linguagem asp
Abre o arquivo especificado e retorna um objeto TextStream por meio do qual o arquivo pode ser lido, gravado ou anexado.
object.OpenTextFile(nome do arquivo[, iomode[, criar[, formato]]])
1. O editor de método abre o arquivo especificado e retorna um objeto TextStream, por meio do qual o arquivo pode ser lido, gravado ou anexado.
object.OpenTextFile(nome do arquivo[, iomode[, criar[, formato]]])
2. Objeto de edição de parâmetros
Obrigatório. object deve ser o nome de um FileSystemObject.
nome do arquivo
Obrigatório. Uma expressão de string que especifica o arquivo a ser aberto.
modo io
Opcional. Pode ser uma das três constantes: ForReading, ForWriting ou ForAppending.
criar
Opcional. Valor booleano que indica se um novo arquivo deve ser criado quando o nome de arquivo especificado não existe. O valor é True se um novo arquivo for criado, False se não for criado. Se omitido, nenhum novo arquivo será criado.
formatar
Opcional. Use um dos valores de três estados para especificar o formato no qual o arquivo será aberto. Se omitido, o arquivo será aberto no formato ASCII.
3. Defina e edite o parâmetro iomode, que pode ser qualquer uma das seguintes configurações:
Descrição do valor constante
ForReading 1 abre o arquivo somente leitura. Este arquivo não pode ser gravado.
ForWriting 2 Abrir arquivo para gravação
ForAppending 8 abre o arquivo e começa a escrever a partir do final do arquivo.
O parâmetro de formato pode ser qualquer uma das seguintes configurações:
descrição do valor
TristateTrue abre arquivos no formato Unicode.
TristateFalse abre o arquivo no formato ASCII.
TristateUseDefault Abre o arquivo usando os padrões do sistema.
4. Edição de instruções O código a seguir ilustra como usar o método OpenTextFile para abrir um arquivo e anexar texto:
var fs, a, ForAppending;
ForAppending = 8;
fs = novo ActiveXObject(Scripting.FileSystemObject);
//Pode ser uma de três constantes: ForReading, ForWriting ou ForAppending
//Eles são 1, 2, 8 respectivamente
a = fs.OpenTextFile(c://testfile.txt, 2, falso);
...
a.Fechar();
Casos de uso em script vbs
Abre o arquivo especificado e retorna um objeto TextStream que pode ser lido, gravado ou anexado ao arquivo.
object.OpenTextFile(nome do arquivo[,iomode[,criar[,formato]]])
parâmetro
objeto
Obrigatório. Deve ser o nome de um objeto FileSystemObject.
nome do arquivo
Obrigatório. Uma expressão de string que especifica o nome do arquivo a ser aberto.
modo io
Opcional. Modo de entrada/saída, uma das três constantes a seguir: ForReading, ForWriting ou ForAppending.
criar
Opcional. Valor booleano que indica se um novo arquivo pode ser criado quando o nome de arquivo especificado não existe. True para permitir a criação de novos arquivos, False caso contrário. O valor padrão é Falso.
formatar
Opcional. Um dos três valores Tristate que indicam o formato no qual o arquivo será aberto. Se este parâmetro for omitido, o arquivo será aberto no formato ASCII.
O parâmetro iomode pode ser uma das seguintes configurações:
| constante | valor | descrever |
| Para leitura | 1 | Abra o arquivo no modo somente leitura. Este arquivo não pode ser gravado. |
| Para escrever | 2 | Abra o arquivo apenas para gravação. Este arquivo não pode ser lido. |
| ParaAnexar | 8 | Abra o arquivo e escreva no final do arquivo. |
O parâmetro de formato pode ser uma das seguintes configurações:
| constante | valor | descrever |
| TristateUseDefault | -2 | Abra o arquivo no formato padrão do sistema. |
| TristateVerdadeiro | -1 | Abra o arquivo no formato Unicode. |
| TristateFalso | 0 | Abra o arquivo no formato ASCII. |
Exemplos de uso:
- SubOpenTextFileTest
- ConstForReading=1,ForWriting=2,ForAppending=8
- Dimfso,f
- Setfso=CreateObject(Scripting.FileSystemObject)
- Setf=fso.OpenTextFile(c:/testfile.txt,ForWriting,True)
- f.Escreva Olá!
- f.Fechar
- Fim Sub
- CallOpenTextFileTest
Uma função escrita por Wulin.com
- Dimfso
- Setfso=CreateObject(Scripting.FileSystemObject)
- setfn2=fso.GetFile(E:/webroot/vevb/index2.htm)
- flsize2=fn2.tamanho
- fldate2=fn2.datelastmodificado
- setfn=fso.GetFile(E:/webroot/vevb/index.htm)
- flsize1=fn.tamanho
- fldate1=fn.datelastmodificado
- Iffso.FileExists(E:/webroot/vevb/index2.htm)andflsize2>50000andfldate2>fldate1Then
- 'Determine o tamanho do arquivo Se o arquivo html for regenerado, você precisa determinar se ele foi atualizado e se o arquivo não pode ser inferior a 50K.
- fso.getfile(E:/webroot/vevb/index2.htm).copy(E:/webroot/vevb/index.htm)
- iferr.number=0thenWriteHistory bem-sucedido&now()&..........,log.txt
- fim
- 'Função de gravação de log
- SubWriteHistory(hisChars,caminho)
- ConstForReading=1,ForAppending=8
- Dimfso,f
- Setfso=CreateObject(Scripting.FileSystemObject)
- Setf=fso.OpenTextFile(caminho,ForAppending,True)
- f.WriteLinehisChars
- f.Fechar
- Fim Sub