java习题_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
上传于||暂无简介
大小：6.81KB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢08_Java基于文本的应用_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
08_Java基于文本的应用
上传于||暂无简介
阅读已结束，如果下载本文需要使用0下载券
想免费下载更多文档？
下载文档到电脑，查找使用更方便
还剩3页未读，继续阅读
你可能喜欢FileSystemObject可以将文件翻译成文件流。
Var fso=new ActiveXObject(Scripting.FileSystemObject);
创建一个可以将文件翻译成文件流的对象。
第二步：用于创建一个textStream 对象
括号里边有三个属性
1. 文件的绝对路径
2. 文件的常数 只读=1，只写=2 ，追加=8 等权限。（ForReading 、 ForWriting 或 ForAppending 。）；
3. 一个布尔值 允许新建则为true 相反为false；
Var f=fso.createtextfile(“C:\a.txt”,2,true);
第三步：调用textStream的方法
1. Write（不在写入数据末尾添加新换行符）
2. WriteLine（要在最后添加一个新换行符）
3. WriteBlankLines（增加一个或者多个空行）
f.writeLine(“wo shi di yi hang”);
关闭textStream 对象：
例：f.close();
Var fso=new ActiveXObject(Scripting.FileSystemObject);
创建一个可以将文件翻译成文件流的对象。
第二步：用于创建一个textStream 对象
括号里边有三个属性
4. 文件的绝对路径
5. 文件的常数 只读=1，只写=2 ，追加=8 等权限。（ForReading 、 ForWriting 或 ForAppending 。）；
6. 一个布尔值 允许新建则为true 相反为false；
Var f=fso.opentextfile(“C:\a.txt”,1，true);
第三步：调用读取方法
1. Read（用于读取文件中指定数量的字符）
2. ReadLine（读取一整行，但不包括换行符）
3. ReadAll（则读取文本文件的整个内容）；
判断是否读取到最后一行
while (!f.AtEndOfStream)
f.Readline();
关闭textStream 对象：
例：f.close();
下面是一个html打开txt文件的例子。
&!DOCTYPE html PUBLIC &-//W3C//DTD XHTML 1.0 Transitional//EN& &http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd&&
&html xmlns=&http://www.w3.org/1999/xhtml&&
&meta http-equiv=&Content-Type& content=&text/ charset=utf-8& /&
&title&你好&/title&
&div id=&aa&&&/div&
&script language=&javascript&&
var fso, ts,
var ForReading = 1;
fso = new ActiveXObject(&Scripting.FileSystemObject&);
ts = fso.OpenTextFile(&d:\\testfile.txt&, ForReading);
s = ts.ReadLine();
document.getElementById(&aa&).innerHTML=s;
$fp = fopen('aa.txt','w+'); fwrite($fp,var_export($times,true)); fclose($fp);
php文件处理： http://www.jb51.net/w3school/php/php_file.htm
&?php $filename=dirname(__FILE__).&/readfrom.txt&; $ofilename=dirname(__FILE__).&/writeto.txt&;
if(!file_exist
今天遇到了一个问题就是用fwrite写入txt文件的时候用 rn不能换行 试了很久都没找到办法! 突然之间想到一个东东以前看书见过后来还是用这个东东给解决了! 现在写出来预防将来忘记也希望能帮到需要帮助的朋友!
直接看代码:
&?php $stream = fopen(&robots.txt&, &w+&); fwrite($st
读取本地文件解析txt文件 存于数据库（测试类）
解析测试类：
package com. import java.io.BufferedR import java.io.F import java.io.FileInputS import java.io.InputStreamR import java.util.Array
&?php /* 作者： 应用：读取文件内容; */ function read_file_content($FileName) { //open file $fp=fopen($FileName,&r&); $data=&&; while(!feof($fp)) { //read the file $data.=fread($fp,4096)
本文实例讲述了PHP读取txt文本文件并分页显示的方法。分享给大家供大家参考。具体实现方法如下：
session_start();
if (empty($page)) {$page=1;}
if (isset($_GET['page'])=
　　mac怎么新建txt文件呢?不管是在工作还是学校中，都要经常用到txt文档，那么在mac上要怎么新建txt文件呢?今天小编就为大家带来mac新建txt文档的方法，有需要的朋友一起去学习下吧。 Mac上wifi打印机怎么用 wifi打印机连接使用教程 　　mac新建txt文档方法： 　　第一步;用户打自己的launchpad：　　第二步：在launchpad中找到“其他”的选项。 　　第三步;找
读取gb18030txt文件 ，无法显示 有一个txt文件是gb18030编码的，
这样读取，得到字符串空值。data有值，路径也有值。
估计是编码问题，请问这个怎么解决。
NSData*data=[NSDatadataWithContentsOfFile:[[NSBundlemainBundle]pathForRes
导入TXT文件与导出TXT
导入.TXT文件与导出*.TXT load data infile 'TXT文件的完整路径' into table 表名；
linux:TXT文件的完整路径=‘/tmp/aaa.txt’ windowns:TXT文件的完整路径='e:\\aaa.txt' .txt的文件用Tab隔离 &nbsp
ORACLE 中写入txt文本与从Txt文件中读入数据 修改表结构 --创建一个表
DROP TABLE TEST CASCADE CONSTRAINTS ;
CREATE TABLE TEST(A VARCHAR(30),B VARCHAR(30));
--查看具体的权限
SELECT DISTINCT PRIVILEGE FROM DBA_SYS_PRIVS WHERE PRIVILE
有一个TXT文件，包含了10万条记录，格式如下： 列1 列2 列3 列4 列5a &nbsp
.txt的文件内容如下：
01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 T01 T02 T03 T04 T05 T06 T07 T08 T09 T10 T11 T12 T13 T14 T15 T16
思路如下：使用file_get_contents()获取
在这之前你可以判断一下你想存在的文件是否存在，如果存在就保存，如果不存在就保存 写入文件代码：StreamWriter wr = new StreamWriter(Server.MapPath(&saveFile.txt&),false,System.Text.Encoding.Default);
adroid中将mysql数据库中的数据读取到本地txt文件上时，出现数据库连接错误
package lyy.
import java.io.InputS import java.io.OutputS import java.sql.DriverM import java.sql.ResultS import java.sql.SQLExce
/** * $splitChar 字段分隔符 * $file 数据文件文件名 * $table 数据库表名 * $conn 数据库连接 * $fields 数据对应的列名 * $insertType 插入操作类型，包括INSERT,REPLACE */
&?php /** * $splitChar 字段分隔符 * $file 数据文件文件名 * $table 数据库表名
########################## # # # 为了避免截断中文字符 # # 文件要求是 unicode 编码 # # txt文件另存为对话框下面有下拉框，可选存 # # 储编码格式 # # # ########################## import os import struct filename = str(raw_input(&Ple
怎样才能读取和写入xml文件，请前辈示例一下，感谢了！ 文件名：canshu.xml，想取到sdnscd、sdsgcd、sdhjcd的值，请前辈指导！
&?xmlversion=&1.0&encoding=&UTF-8&?&
&canshuCat=&feiliao&
Android 学习笔记 - mdb文件转化成txt文件
27 Apr 2010
问题是：当我把mdb 文件复制到 xls文件，然后再复制到txt文件后，出现了黑方块。昨晚试了一下，如果你只想删掉所有的黑块，只要用 wordpad.exe（写字板）把TXT文件打开一下再保存就好了
以下方法要尝试一下：
用UltraEdit打开文本文件，然后
从损坏的磁盘中恢复可读取的信息。
ECOVER[drive:][path]filename 在使用RECOVER命令以前， 先查阅Windows帮助内的联机命令参考。 具体使用方法： 以修复你的D盘根目录下的bad.txt文件为例，首先点击“开始→运行”，在运行输入框中输入“CMD”(不含引号)后回车，在弹出的命令提示符下键入“Reco
&?php /** *1.前几天一哥们工作中他们领导让他写一个上生成文件的类：生成文件，文件类型支持：txt、html、csv、pdf、doc(或者docx)。 * *2.生成的内容是一张表格（像html中的table），参数为：生成文件的类型、生成内容的标题（数组），生成内容（数组，和标题相对应）。 */ /*********************************
iPhone读取和写入plist文件
plist文件是标准的xml文件，在cocoa中可以很简单地使用。这里介绍一下使用方法： 以下代码在Mac和iPhone中均适用。
写入plist文件：
NSMutableDictionary*dict= [ [
oracle导入txt文件
1建一个ctl文件 例如control.ctl 内容 Load data infile 'F:\demo\AAA_01_5_9242.TXT'//导入文件的路径 into table Dat_src_c_interface //导入到数据库中的表名 append fields terminated by ' '//字段用什么分开的 ( act
c#逐行分元素读取记事本txt数据写进数据库
其实这里最关键的一个方法是StreamReader类里的 ReadLine();这个方法可以逐行读取txt流里面的数据。写了个简单的demo，已经加上了详细的注释说明。 ok，好了，不废话，下面直接上代码 public void InputData() { DataTable dt = new DataTable(); string s
iPhone开发－创建、读取、写入文件
创建与删除：
//创建文件管理器 NSFileManager *fileManager = [NSFileManager defaultManager];
//获取路径
type *.txt&&fuji.txt
建立一个.bat文件 复制上面的语句 把要合并的txt和bat文件放在同一个目录 运行.bat fuji.txt是合并后的文件名
怎么使用adb 命令查看一个txt文件的修改日期 怎么使用adb命令查看一个txt文件的修改日期
------解决思路---------------------- ls-all
RMAN 系列（二），RMAN 设置和配置.txt
一． 配置数据库以ARCHIVELOG 模式运行 在ORACLE 10g 之前，在将数据库置入Archivelog 模式后，需要启动arch进程。 设置参数LOG_ARCHIVE_START 为true，也可启动arch进程。在10g以后，不需要使用该方法，当数据库处于archivelog模式时，Oracle 会自动启动arch进程。 Arch
批量导入TXT文件
方法1.导文本文件到ORACLE
CREATE TABLE HKH_8月未拨打 (
PHONE_NUM VARCHAR2(11) ) ORGANIZATION EXTERNAL (TYPE ORACLE_LOADER
DEFAULT DIRECTORY TEMP
ACCESS PARAMETERS(RECORDS DELIMITED BY NEWLINE
txt文件上传数据 批量解析批量存入数据库方法操作（1）
/** *常用方法 * 去掉数组中每一个元素的开头和结尾的引号 * @param recArray 要处理的数组 * @return 处理后的数组 */ public static String[] minusQuotation(String[] recArray) { for (int i = 0; i & recArray.l
　　故障现象: 　　打开txt文档时报错
　　原因分析: 　　中病毒后，文件全部变成快捷方式，360查杀病毒后，txt文件无法打开。 　　解决方案: 　　虽然桌面txt文档图标没有变，但是默认打开方式已经不是记事本打开了，需要右键选择默认打开方式，改回记事本即可。
读取本地Excel文件内容的Javascript代码：
&script type=&text/javascript&& function read_excel(){
var filePath=&D:\.xls&; //要读取的xls
话说今天只是粗略浏览了一下Proxy SwitchySharp的源码，就收获了不少东西，其中就包括本文要介绍的读取和保存文件。因为Google还不提供同步插件数据的功能，所以导入和导出插件配置就必须和文件打交道了。而出于安全原因，只有IE才提供访问文件的API；但随着HTML 5的到来，其他浏览器也纷纷支持了。 首先说读取文件。W3C提供了一些File API，其中最重要的是FileReader这
SSIS【Foreach 循环容器_Foreach 文件枚举器】（导入路径下的所有txt文件的内容） (转)
原文：http://blog.csdn.net/kk/article/details/
SQLServer 2008 R2 SSIS_Foreach 循环容器_Foreach 文件枚举器（导入路径下的所有txt文件的内容）
1. 拖动一个 【Fo
ORACLE写TXT文件操作
1、用管理员账号创建目录并给生成用户授权 -- Create directory create or replace directory DIR_BOOK as 'D:\DIR_BOOK';
grant read,write on directory dir_
2、编写过程 create or replace
【转】oracle存储过程导出表数据为TXT文件【全表字段】
-*********************************************************************--***--***首先以dba或者是其他具有create directory的用户创建directory，然后授权。这一步很重要，否则后面执行存储过程会报异常--***--**********
谁知道iReader iphone版，txt文件目录解析速度为什么那么快？ 同标题。
------解决方案--------------------
应该是分段处理的吧
------解决方案--------------------
分段处理，预加载~
------解决方案-------------------- 预解析
------解决方案--------------------
数据库导入txt文件（不含sql语句）
数据库导入txt文件（不含sql语句）
E:\\data.txt（两个斜杠 其中一个是转义）
load data local infile &E:\\data.txt& into table t_dongfang_
usingS usingSystem.C ponentM usingSystem.D usingSystem.D usingSystem.W&nbsp
首先建立一个conn.php的文件用来链接数据库
$link = mysql_connect(&mysql_host& , &mysql_user& , &mysql_password& )or die(&Could not connect : &quo
java读取文本文件到mysql数据库【示例2】
1、java读取文本文件到mysql数据库【示例】：把手机号码归属地文件：安徽联通.txt读取到数据库school的phonenumber表中
2、安徽联通.txt内容如下： --合肥 --蚌埠 --芜我编了一个java程序是有关从txt文件中读入字符并输入到字符数组中进行修改 可最后得不出myArray1这个数组_百度知道
我编了一个java程序是有关从txt文件中读入字符并输入到字符数组中进行修改 可最后得不出myArray1这个数组
C&=0;/A&quot.equals(&G&)&&myArray[l+1];F.equals(&
}} 文件内容是这样的.BufferedReader.println(A
BufferedReader buf = new BufferedReader(fileReader);public class ArrayFile { public static void main(String [ ] args)
SString&k&import java.FileRT&quot.in).toString(myArray));)||myArray[l];
catch (Exception e) {
e.equals(&quot,l++){
myArray1[j]=myArray[l], l = 0.util.)&&myArray[l+2]:&#92.equals(&)&&myArray[l+2].
ArrayList&
System.toString(myArray1)).equals(&
if(myArray[l]，或者文件的行数
String[] myArray1 = new String[10000].equals(&
FileReader fileReader = new FileReader(&
while((readLine = buf.equals(&A&)){
l=k+3;A&j++;
System.readLine()) .out!= null){
myArray[i] = readLine：这个值你自己定义;j&))
if(myArray[k+1];k+=3)
if(myArray[k];T&quot.io，要根据你文件的大小了.equals(&);&#92.printStackTrace().equals(&)||myArray[l];String&gt,;();T&quot.;
String[] myArray = new String[10000];&quot，但不宜过大;))
break.println(A
String readLine = &quot.Arrays.ArrayList.equals(&&
String bufToString = &)&&myArray[l+2];))
if(myArray[k+2];=0.equals(&quot.println(S
for(j=0;C&)&&myArray[l+1].txt&quot.equals(&)&&myArray[l+1];T&
int i = 0;A&100;
i++; al=new ArrayList&T&quotimport java.io
将文件中的字符输入到数组中，并对其进行增删
提问者采纳
&quot.}}}PS;{try&nbsp!=&=&A&=&nbsp.util.add(seq);static&nbsp.txt&}&import&{Matcher&+&String&P=&&=&{e;seq).readLine())&e)&=&import&(catch&=&&quot.ArrayList&S(Exception&=&seq&}&quot.void&+&new&matcher&nbsp.ArrayL+&import&gene&nbsp.size()).BufferedRwhile&;String&gt.println(myArray1;FileReader(&}S{public&import&BufferedReader&pattern&nbsp.close();=&ArrayList&main(String[]&nbsp.group(2)&}lineNumber++;=&nbsp.L((readLine&&class&{String&.find())&;&pile(&import&(ATG)([ATCG]*)(ATC|ATT|ACT)&quot.io:&nbsp:&nbsp.printStackTrace();List&String&gt.add(readLine);int&();java：import&(String&nbsp.util.regex.PmyArray1.println(lineNumber&public&null)&&quot.).FileRString&{myA{FileReader&=&myArray1&List&args)&);while&nbsp根据代码推测程序逻辑;1;readLine&nbsp.MBufferedReader(fileReader).new&nbsp：查找每一行中以“ATG”开头.;myArray)&nbsp.matcher(gene);fileReader&buf&java。代码如下;Gene&;lineNumber&();for&String&Pattern&myArray&nbsp，以“ATC”;new&&nbsp，“ATT”或“ACT”结尾的字符串的中间部分;new&nbsp:&nbsp
提问者评价
其他类似问题
为您推荐：
其他1条回答
if&nbsp.equals(&myArray[l&(myArray[k&myArray[l&&nbsp，按照文件内容;&&&nbsp，而不是一串字符;1];&0.equals(&))
if&&nbsp；Tips1;(myArray[l];+&)
&myArray[l&(k&=&nbsp：while((readLine&&&&&=&&)
&&nbsp.equals(&&=&=&T&quot.readLine())&&&C&quot，GACGTAAAAGCGACTTCTCCGCTCCACAGTAAAATAAGAGTTGCACCACATAAGTCATCTCGTAATTAGTCTCCCAGGCGGAAACAAAGAAGAGACCGCTCCTATTTTGCAGCACATCGTATAATGCAACATTAGTGTCTCCCATCAATAAATAAACATTCTGCAAACTATCATATCATTTTTTTTTTCATCCTTGGGCCGTCTGTAGCC仅有三行;k&(myArray[k];1];&&&nbsp，赋值给数组的一个元素;A&&nbsp.equals(&))
if&&0;myArray[l&3)&myArray[i]&&nbsp，而判断逻辑中元素明显是一个字符;&1]。for&&&
for&&=&j++;&+&&+&C&A&A&&nbsp，那么myArray只有三个非空元素;k&nbsp.equals(&myArray[l];i++;)
&amp.equals(&=&&}本段代码表示从文件读入一行;myArray[l&nbsp.equals(&myArray[l].equals(&quot,&G&&&null){&1];A&myArray[l];3;&)
&2].equals(&+&k&l++)&(myArray[k&myArray[l&nbsp先提点建议;{
myArray1[j]&0;=&2];readL&&2];2];))
&amp.equals(&quot，简单来说就明确定义输入/输出;)
l&(j&T&j&;)
&&&+&&&nbsp.equals(&quot!=&&T&T&&))&nbsp.equals(&0;=&&&+&&+&)
||&nbsp，题主最好简单描述这个程序要完成什么样的需求
你的回答并未改变我的任何程序结构，输出流System.out.println(Arrays.tostring(myArray1))又会报错
是的，我只是在引用你的代码片段，我并不清楚你的需求。我的意思是while((readLine&=&buf.readLine())&!=&null){&&&&&&&&&&&&&&&&myArray[i]&=&readL&&&&&&&&&&&&&&&&i++;}这段代码明显是有问题的。你DEBUG会发现：myArray[0]=GACGTAAAAGCGACTTCTCCGCTCCACAGTAAAATAAGAGTTGCACCACATAAGTCATCTCGTAATTAGTmyArray[1]=CTCCCAGGCGGAAACAAAGAAGAGACCGCTCCTATTTTGCAGCACATCGTATAATGCAACATTAGTGTCTmyArray[2]=CCCATCAATAAATAAACATTCTGCAAACTATCATATCATTTTTTTTTTCATCCTTGGGCCGTCTGTAGCC或者你应该清楚的表达你的程序需要达到什么目的？
照着你的意思我的数组的每个元素都有一行字符，那我该怎么改才能将我数组的每一个元素只包含一个字符将文件中的字符输入到数组中，并对其进行增删
不是，readLine()方法是读取一行，赋值给数组的一个元素，而输入的文件gen.txt内容有三行，所以前三个元素都有一行字符，其他10000-3个元素都是null值
那能不能使用一个函数每次是读取一个字符，再把它赋值给数组或者新建一个数组，读取myArray元素中的每一个字符
while((readLine&=&buf.readLine())&!=&null){&&&&&&&&&&&&&&&&myArray[i]&=&readL&&&&&&&&&&&&&&&&i++;}修改为int&readChar&=&-1;while((readChar&=&buf.read())&!=&-1){&&&&&&&&&&&&&&&&myArray[i]&=&(char)readChar+&&&;&&&&&&&&&&&&&&&&i++;}就是每次读取一个字符。另外，抛异常是肯定的，for循环&for&(k&=&0;&k&&=&0;&k&+=&3)&是一个死循环，只有异常才能让他停下来。PS：neochow2010的推测应该是对的了，你可以参照他的代码。
字符数组的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁vb读取txt资料到textbox (一) - VB当前位置:& &&&vb读取txt资料到textbox (一)vb读取txt资料到textbox (一)&&网友分享于：&&浏览：42次vb读取txt文件到textbox (一)
vb读取txt文件到textbox (一) 日　　1.怎么通过代码创建一个文本文件，并读取，更新内容　　以上为随即方式打开的文本文件　　dim gfilenum as integer　　gfilenum = FreeFile　　Open&& "文件路径及文件名" For Random As gfilenum len=3　　\'以随即方式打开一文件如果文件不存在就新建　　用get #gfilenum ,记录在文件中位置,要放取得的数据的变量\'读取操作　　用put #gfilenum ,记录在文件中位置,要放着要写入数据的变量\'写操作　　close #filenum\'关闭文件　　以下为顺序方式打开的文件　　dim gfilenum as integer　　gfilenum = FreeFile　　Open&& "文件路径及文件名" For output As gfilenum \'以写入方式打开文本　　print #gfilenum,要写入的文本　　write #filenumber,要写入的文本　　dim gfilenum as integer　　gfilenum = FreeFile　　Open&& "文件路径及文件名" For input As gfilenum \'以读出方式打开文本　　input #gfilenum ,用来放读取的内容的内存变量名　　还可用line input#,input()等读取更详细的查msdn　　2.VB读取文本文件时，调用TextStream 对象中使用OpenTextFile报错了。[/b]　　如果是　　Set f = fs.OpenTextFile("E:\\table\\trace.txt", forreading, True, TristateUseDefault)　　出现错误：　　Run-time error \'5\':　　Invalid procedure call or argument　　如果是　　Set f = fs.OpenTextFile("E:\\table\\trace.txt)"　　则不会报错。　　用文件对象啊FileSystemControl操作就好了啊　　再加上一个TextStream读取文件第一行就好了啊。　　3.VB通过FileSystemObject,可以读取文本文件(.txt)。对于.bat文件，VB可否直接读取?　　bat也属于文本类文件　　可以读取　　不用FSO也行：　　把文本文件内容读取TextBox：　　Dim TempFile As Long　　Dim LoadBytes() As Byte　　TempFile=FreeFile　　Open 文件名 For Binary As #TempFile　　Redim LoadBytes(1 To Lof(TempFile)) As Byte　　Get #TempFile,,LoadBytes　　Close TempFile　　Text1.Text=StrConv(LoadBytes,vbUniCode)　　把TextBox内容写入文本文件：　　Dim TempFile As Long　　Dim SaveBytes() As Byte　　SaveBytes=StrConv(Text1.Text,vbFromUniCode)　　TempFile=FreeFile　　Open 文件名 For Binary As #TempFile　　Put #TempFile,,SaveBytes　　Close TempFile　　[b]4.打开文本文件& 　　open app.path &"/你的文本文件名.txt" for output as #1　　Message.Name=text1.text　　Message.Phone=text2.text　　.......................　　message.PostCode=text5.text　　Put #1,i,Message&& \'(此处i=1,如要多次写入,可用循环设置i的值)　　close #1　　\'写入的同时即已保存　　查询的话就取出文本里的内容,用instr()函数就可实现了　　5.查找vbCrLf、vbLf换行标记[/b]　　[b]6.怎样读取一个文本文件的全部内容[/b]　　dim lenfile as integer　　dim filenum as integer　　filenum=freefile()　　open "file.dat" for input as filenum　　lenfile=lof(#filenum)　　strfile=input(lenfile,#filenum)\'将所有数据放入变量strfile中　　close filenum　　Private Sub Form_Load()　　Const ForReading = 1, ForWriting = 2　　Dim fso, f　　Dim SkipLineInFile As String　　Set fso = CreateObject("Scripting.FileSystemObject")　　Set f = fso.OpenTextFile("c:\\testfile.txt", ForWriting, True)　　f.Write "Hello world!" & vbCrLf & "VB Script is fun!"　　Set f = fso.OpenTextFile("c:\\testfile.txt", ForReading)　　SkipLineInFile = f.readall　　Debug.Print SkipLineInFile　　End Sub　　[b]7.把文本文件内容读取TextBox：[/b]　　Dim TempFile As Long　　Dim LoadBytes() As Byte　　TempFile=FreeFile　　Open 文件名 For Binary As #TempFile　　Redim LoadBytes(1 To Lof(TempFile)) As Byte　　Get #TempFile,,LoadBytes　　Close TempFile　　Text1.Text=StrConv(LoadBytes,vbUniCode)　　[b]8. 把TextBox内容写入文本文件：[/b]　　Dim TempFile As Long　　Dim SaveBytes() As Byte　　SaveBytes=StrConv(Text1.Text,vbFromUniCode)　　TempFile=FreeFile　　Open 文件名 For Binary As #TempFile　　Put #TempFile,,SaveBytes　　Close TempFile　　[b]9.已知文本文件，要从中搜索一段特定的字符串信息。如搜索[MAGIC_DATABASES],该怎么做?　　dim str as string　　open commondialog1.filename for input #1　　input #1, str　　dim where as integer　　where = instr(str,"magic_databases")　　10.　　Line Input # 语句示例　　本示例使用 Line Input # 语句从顺序文件中读入一行数据，并将该行数据赋予一个变量。本示例假设 TESTFILE 文件内含数行文本数据。　　Dim TextLine　　Open "TESTFILE" For Input As #1&& \' 打开文件。　　Do While Not EOF(1)&& \' 循环至文件尾。　　Line Input #1, TextLine&& \' 读入一行数据并将其赋予某变量。　　Debug.Print TextLine&& \' 在立即窗口中显示数据。　　Loop　　Close #1&& \' 关闭文件。　　11.如何操作“文本文件”　　fso(Filesystemobject)对象集中的文件集合里有readline方法。　　Dim of As Object　　Dim fs as Object　　dim TextLine as string　　Set fs=createobject("scripting.Filesystemobject")　　set of=fs.OpenTextFile(app,path+"\\myfile.aaa")　　//myfile.aaa 是一个文本文件　　textling=of.readline　　//如果你要读取第14行，可以用一个循环，跳过前面的13行，如下　　dim lop as integer　　for lop=0 to 12　　of.skip　　next　　//然后再读取　　12.搜索了一下，大家主要用两种方法对文本文件加密。[b][/b]　　1.对文本文件的ASC码加减　　2.用XOR函数　　我发现都有问题举例　　1.代码　　Public Function nnnn(ByVal s As String) As String \'解密　　On Error Resume Next　　Dim ss As String, i As Byte, lens As Byte　　lens = Len(s)　　For i = 1 To lens　　ss = ss & Chr(Asc(Mid(s, i, 1)) - lens - i)　　Next　　nnnn = ss　　End Function　　Public Function mmmm(ByVal s As String) As String&& \'加密　　On Error Resume Next　　Dim ss As String, i As Byte, lens As Byte　　lens = Len(s)　　For i = 1 To lens　　ss = ss & Chr(Asc(Mid(s, i, 1)) + lens + 1)　　Next　　mmmm = ss　　End Function　　当文件中有“！~”时出错　　XOR加密　　Dim I as long　　For I=1 To UBound(LoadBytes)　　LoadBytes(I)=LoadBytes(I) Xor &HFF　　Next I
12345678910
12345678910
12345678910 上一篇：下一篇：文章评论相关解决方案 12345678910 Copyright & &&版权所有