本帖最后由 liulang0808 于 2019-11-17 08:57 编辑
近期在论坛里看帖比较频繁，在能力范围之内辅助解决了个别问题，发现不少童鞋提出文本处理的需求，所以做了以下总结。 由于本人也是初学者，靠着个人的使用习惯及感觉来总结的，难免有些疏漏，希望各位给批评指正。 使用的office版本为2003. 一、个人感觉比较通用的文本操作方法 1、打开文本文件的几种模式 对文件文件在进行读或写操作之前，需要使用Open语句打开该文件。 open filename for input\output\append As #number filename 是完整文件名，为字符串格式（注意：必须是完整文件名，即路径+文件名）。 number 是需要打开的文件对应的文件号。是一个介于1 和 511 之间的整数（类型为整形Integer）。如果已经有多个文件号被使用，需要查找一个可用的文件号时可以使用FreeFile函数可以返回一个可用的文件号。例如： a = FreeFile
以下的文件号均以1为例进行说明
Input：读取文件。目前大家咨询问题使用比较多的就是打开一个文件读取其内容，执行相关的操作。
Output：写文件，目前使用比较少的，使用该模式，会清空已有的文件内容。
Append：写入现有文件的末尾。不同于output的清空文件内容，会在当前文件最后接着累加新内容 2、对文本文件进行写操作 Write语句产生一行由逗号分隔的值，并在日期的周围放上（#），在字符串的周围放上（"）。 写入格式：Write #1，str1，str2
Print能写入任何格式的文本文件。 写入格式：Print #1，str1，str2
Print与write实例： Sub test11() Open ThisWorkbook.Path & "\output.txt" For Output As #1 str1 = "123" str2 = "你好吗" str3 = "hello" Print #1, str1, str2, str3, Date Write #1, str1, str2, str3, Date Close #1 End Sub 在output.txt文件内生成两列内容如下： 123 你好吗 hello 2013-11-22 "123","你好吗","hello",#2013-11-22# 说明：ThisWorkbook.Path表示相对路径，是指当前vba对应宏文件所在的文件夹，当前的output.txt与vba对应的宏文件是同文件夹。
3、对文本文件进行读取操作 Input语句有如Write语句产生的那样并读取数据到变量列表中。 读取格式：Input #1，str1，str2 例如：用write写入文件如下： str1 = "123" str2 = "你好吗" str3 = "hello" Write #1, str1, str2, str3, Date 将以上内容写入文件结果为： "123","你好吗","hello",#2013-11-22# 再使用input读取的时候使用如下语句： Input #1, str5, str6, str7,str8,会发现str5="123",str6= "你好吗",str7="hello",str8=2013-11-22 个人感觉input不是很常用，但是在使用中一定要注意后面的变量个数，要不然会报错，比如本例中有四个变量分别对应写入的四个，如果再增加变量就会报错。
Line Input方式将读取整行字符串。 读取格式：Line Input # 1，strLine 这个比较常用，一般是结合While Not EOF(1) 。。。Wend来进行正行读取，在读取正行数据后，可以用split函数进行拆分成数组，或者用instr函数对正行数据进行查找是否有需要的字符串。 4、关闭文本文件 Close #1，如果有多个文件就分别在相应的位置使用close #number进行关闭。最好不用一个close来关闭，避免引起误关闭。
二、文本打开的其他方法 在excel文件里打开文本文件 Workbooks.OpenText Filename:=strfile, Origin:=936, _ StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _ , Space:=False, Other:=False, FieldInfo:=Array(1, 2), _ TrailingMinusNumbers:=True
或者直接用Workbooks.OpenText strfile 其中strfile是文本文件名的全路径。
本人用过几次，也是对应处理txt文件，主要是先用excel打开文本文件，然后在对应的excel里对该文本文件内容进行操作。 在对文本文件内容想excel表内拷贝的时候，个人感觉此操作方法效率比较高，但是在使用的时候需要注意打开的多个excel文件怎么去激活操作。 附件是之前给别人做的一个案例，读取各个文本文件并并分别保存在不同的表内
还有个别时候，可以用于修改一下文本的格式，特别unix系统中提取的文本文件，貌似是分行数据，有可能打开后，数据不是分行的，都是在一起。 三、还有其他打开方法，但是由于本人能力有限，还不曾熟悉使用，没有介绍，请各位继续补充
| 
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2013-11-22 10:00
楼主
发表于 2013-12-9 10:37
