如何读取txt文件里边的tab隔开的数据？ 3
需要分别存入的表的字段
& 字段b--------------------------------------------------------------\t------解决方案--------------------------------------------------------split( &txtStr &,chr(9))------解决方案--------------------------------------------------------黑马的思路很正确，用split按行分割为数组，然后在提交到数据库就好了 ------解决方案--------------------------------------------------------如果只是中间有tab 用left( &txt &,8) right( &txt &,7)就把他们分成两个了.------解决方案--------------------------------------------------------我使用过这种方法可以实现
&%split(str, &
空白部分你在dw按一下Tab键就可以了。&& 文章内容
超级简单的批量提取文件夹内文件名的经典方法
[日期：] & 来源：IT部落窝& 作者：IT部落窝 & 阅读：55821次[字体：
内容提要：本文分享的批量提取文件名的方法是使用批处理命令来实现批量提取文件夹内文件名.
　　一个文件夹下面有很多文件，如果要批量提取文件夹内所有文件名，知道如何操作吗？
　　比如，笔者电脑里面E盘文件夹下面有一个&4.2函数经典再现&的文件夹，想将这个文件夹下面的所有文件名批量提取到一个记事本文件里面。
　　如果你也想批量提取文件名（批量获取一个文件夹内所有文件的文件名），可以按下面的步骤进行。
　　第一步，新建一个txt格式的记事本文件。
　　第二步，在记事本文件中输入：DIR *.* &/B &LIST.TXT
　　第三步，将此记事本文件后辍名，由txt改为bat。会弹出重命名对话框，单击&是&。
　　第四步，双击文件&新建文本文档.bat&即可生成list.txt文件。打开txt文件就可以看到当前文件夹内的所有文件名列表。（温馨提示：你也可以把文件&新建文本文档.bat&放在其他文件夹里运行，获取当前文件夹下面的所有文件名哦！）
　　总结：本文的提取文件夹内文件名的方法，思路就是将文件保存到要提取文件名的目录下，保存为*.bat（*为文件名），然后双击执行就OK了。这也是传送中的批处理命令。
photoshop教程
平面设计教程查看: 7296|回复: 24
如何将多个txt文件中的特定数据读取到excel中存下来
阅读权限20
在线时间 小时
请教各位老师，
1文件夹中存储了多个txt文件，1个xls文件。每个txt文件的中均包含需要提取的数据。
问题：如何在xls表中根据每个txt文件名提取该txt中特定的字段内容导入到xls中对应的列表中？
说明：txt文件中只有其中一部分是需要提取的，而且需要提取的内容前面都有相应的字段和符号，这些是不需要提取的，只需要提取对应字段和冒号后面的内容。如下图，整个txt中只有这一段是需要提取的，且将id、type、fakeid、nick-name、data-time和content这几个字段的内容提取出来。
QQ截图01.png (54.65 KB, 下载次数: 100)
14:53 上传
(585.71 KB, 下载次数: 103)
14:55 上传
点击文件名下载附件
望不吝赐教，衷心谢谢！
阅读权限150
在线时间 小时
仅供参考：
阅读权限20
在线时间 小时
LangQueS 发表于
仅供参考：
http://club.excelhome.net/redirect.php?goto=findpost&pid=3272004&ptid=497405
可不可以做一个excel？我是菜鸟~
阅读权限95
在线时间 小时
Sub test()
&&Dim reg As Object
&&Dim wjm As String
&&Set reg = CreateObject(&vbscript.regexp&)
&&With reg
& & .Global = True
& & .Pattern = &{&&id&&.*?}&
&&End With
&&
&&wjm = Dir(ThisWorkbook.Path & &\*.txt&)
&&m = 2
&&Do While wjm && &&
& & txtm = ThisWorkbook.Path & &\& & wjm
& & Open txtm For Input As #1
& & Do While Not EOF(1)
& && &Line Input #1, ss
& && &If Left(Trim(ss), 4) = &list& Then
& && &&&ss = Replace(ss, Chr(13), Chr(10) & Chr(13))
& && &&&Set mathcs = reg.Execute(ss)
& && &&&For i = 0 To mathcs.Count - 1
& && && & s = Replace(mathcs(i), &&&&, &&)
& && && & s = Replace(s, &:&, &,&)
& && && & xm = Split(s, &,&)
& && && & For j = 1 To 3
& && && && &Cells(m, j + 1) = xm(j * 2 - 1)
& && && & Next
& && && & For j = 4 To 5
& && && && &Cells(m, j + 1) = xm(j * 2 + 1)
& && && & Next
& && && & Cells(m, 1) = wjm
& && && & m = m + 1
& && &&&Next
& && &&&Exit Do
& && &End If
& & Loop
& & Close #1
& & wjm = Dir
&&Loop
End Sub复制代码
阅读权限95
在线时间 小时
写了一段程序，基本能够实现要求，就是content字段提取出来是乱码，正在琢磨。
16:53 上传
点击文件名下载附件
612.85 KB, 下载次数: 131
阅读权限95
在线时间 小时
之前汇总了一些学习材料，你看看吧，有些有关文本操作的
阅读权限20
在线时间 小时
chxw68 发表于
写了一段程序，基本能够实现要求，就是content字段提取出来是乱码，正在琢磨。
小女在此拜谢了~试了一下，确实有很多乱码，会不会有字符定义的问题？
阅读权限95
在线时间 小时
cjaugust 发表于
小女在此拜谢了~试了一下，确实有很多乱码，会不会有字符定义的问题？
研究了半晚上才搞清楚，你的文本文件有的是以UTF-8编码形式存储的，而Excel是以ANSI标准编码方式处理的，所以会产生乱码，有一个解决办法，就是用记事本打开文本文件，选择以ANSI编码方式保存，Excel就可以正确读取了。
阅读权限20
在线时间 小时
chxw68 发表于
研究了半晚上才搞清楚，你的文本文件有的是以UTF-8编码形式存储的，而Excel是以ANSI标准编码方式处理的， ...
非常感谢~只是我读出来的里面好像没有nick-name这一项的内容，不知道是怎么回事？可以帮忙再解么？拜托~
阅读权限95
在线时间 小时
Sub test()
&&'Dim reg As Object
&&Dim reg As New RegExp
&&Dim wjm As String
&&Dim tt As String
&&Dim fla As Boolean
&&Dim str1 As String
&&utf8 = Array(239, 187, 191)
&&Dim ch(1 To 3) As Byte
&&Set reg = CreateObject(&vbscript.regexp&)
&&With reg
& & .Global = True
& & .Pattern = &&&id&&.*?}&
&&End With
&&wjm = Dir(ThisWorkbook.Path & &\*.txt&)
&&m = 2
&&Do While wjm && &&
& & fla = True
& & txtm = ThisWorkbook.Path & &\& & wjm
& & Open txtm For Binary Access Read As #1
& & For i = 1 To 3
& && &Get #1, i, ch(i)
& & Next
& & For i = 1 To 3
& && &If ch(i) && utf8(i - 1) Then
& && &&&fla = False
& && &&&Exit For
& && &End If
& & Next
& & Close #1
& & Open txtm For Input As #1
& & Do While Not EOF(1)
& && &Line Input #1, ss
& && &If Left(Trim(ss), 4) = &list& Then
& && &&&Set mathcs = reg.Execute(ss)
& && &&&aa = reg.test(ss)
& && &&&For i = 0 To mathcs.Count - 1
& && && & s = Replace(mathcs(i), &&&&, &&)
& && && & s = Replace(s, &:&, &,&)
& && && & xm = Split(s, &,&)
& && && & For j = 1 To 3
& && && && &Cells(m, j + 1) = xm(j * 2 - 1)
& && && & Next
& && && & Cells(m, 6) = xm(9)
& && && & If fla Then
& && && && &str1 = xm(7)
& && && && &Cells(m, 5) = IIf(Len(str1) && 0, utf8_ansi(str1), &&)
& && && && &str1 = xm(11)
& && && && &Cells(m, 7) = IIf(Len(str1) && 0, utf8_ansi(str1), &&)
& && && & Else
& && && && &Cells(m, 5) = xm(7)
& && && && &Cells(m, 7) = xm(11)
& && && & End If
& && && & Cells(m, 1) = wjm
& && && & m = m + 1
& && &&&Next
& && &&&Exit Do
& && &End If
& & Loop
& & Close #1
& & wjm = Dir
&&Loop
End Sub
Function utf8_ansi(sstring As String) As String
&&Dim byArray() As Byte
&&Dim a(1 To 3)
&&ss = &&
&&byArray = StrConv(sstring, vbFromUnicode)
&&d = UBound(byArray)
&&For i = 0 To d
& & If byArray(i) &= 127 Then
& && &ss = ss & Chr(byArray(i))
& & Else
& && &n = 1
& && &Do Until n & 3 Or i & d
& && &&&a(n) = byArray(i)
& && &&&n = n + 1
& && &&&i = i + 1
& && &Loop
& && &i = i - 1
& && &a1 = a(1) And 15
& && &a2 = a(2) And 63
& && &a3 = a(3) And 63
& && &a4 = a1 * 16 + (a2 And 60) / 4
& && &a5 = (a2 And 3) * 64 + a3
& && &aa = a4 * 256 + a5
& && &ss = ss & ChrW(aa)
& & End If
&&Next
&&utf8_ansi = ss
End Function复制代码
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师> c语言读取txt文件,该怎么处理
c语言读取txt文件,该怎么处理
gmgmjay & &
发布时间： & &
浏览：5 & &
回复：3 & &
悬赏：0.0希赛币
c语言读取txt文件编写c程序，读取txt文件，txt文件中是一列数据，每行是一个数，读取以后找出最大值和最小值。多谢。
设置一个数组&然后打开文件&之后可以用fsacnf()或者其他的函数读取出其中的数据&存入数组中&然后遍历数组&比较&找出最大最小值&&少年&不要做伸手党&要自己去实现才能有提升gmlanhua & &
23:33:50 & &
& & （2）（0）引用#include&stdio.h&
int&main(){
&&int&data,max,&&
&&fp=fopen("data.txt","r");/*假定文件名为data.txt
&&fscanf(fp,"%d",&max);
&&while(!feof(fp)){
&&&&fscanf(fp,"%d",&data);
&&&&if(max&data)max=
&&&&if(min&data)min=
&&printf("max=%d\n",max);
&&printf("min=%d\n",min);
&&return&0;
&&gmled & &
23:33:50 & &
& & （2）（0）引用fsacnf()&方法不好,&因为你并不知道文件到底有多在,&
LZ,&给你个思路,&先确定文件大小,&分配读取次数(如果文件小,这步可以不做),&读取一次,&排序一次,&读完为止
(&&少年&不要做伸手党&要自己去实现才能有提升)GMiracle & &
23:33:50 & &
& & （0）（0）引用
本问题标题：
本问题地址：
温馨提示：本问答中心的任何言论仅代表发言者个人的观点，与希赛网立场无关。请对您的言论负责，遵守中华人民共和国有关法律、法规。如果您的言论违反希赛网问答中心的规则，将会被删除。
暂无合适的专家
&&&&&&&&&&&&&&&
希赛网 版权所有 & &&博客访问： 671198
博文数量： 152
博客积分： 3444
博客等级： 中校
技术积分： 1602
注册时间：
IT168企业级官微
微信号：IT168qiye
系统架构师大会
微信号：SACC2013
分类： 嵌入式
import java.io.BufferedInputStream;
import java.io.BufferedReader;
import java.io.FileInputStream;
import java.io.FileNotFoundException;
import java.io.IOException;
import java.io.InputStreamReader;
public class Test {
&public static void main(String[] args) {
&&FileInputStream&fis&= null;
&&InputStreamReader&isr&= null;
&&BufferedReader&br&= null; //用于包装InputStreamReader,提高处理性能。因为BufferedReader有缓冲的，而InputStreamReader没有。
&&&String str = "";
&&&String str1 = "";& &fis&= new FileInputStream("c:\\小志.txt");// FileInputStream
&&&// 从文件系统中的某个文件中获取字节& & isr&= new InputStreamReader(fis);// InputStreamReader 是字节流通向字符流的桥梁,& & br&= new BufferedReader(isr);// 从字符输入流中读取文件中的内容,封装了一个new InputStreamReader的对象
&&&while ((str =&br.readLine()) != null) {
&&&&str1 += str + "\n";
&&&// 当读取的一行不为空时,把读到的str的值赋给str1
&&&System.out.println(str1);// 打印出str1
&&} catch (FileNotFoundException e) {
&&&System.out.println("找不到指定文件");
&&} catch (IOException e) {
&&&System.out.println("读取文件失败");
&&} finally {
&&&try {& & &br.close();& & &isr.close();& & &fis.close();
&&&&// 关闭的时候最好按照先后顺序关闭最后开的先关闭所以先关s,再关n,最后关m
&&&} catch (IOException e) {
&&&&e.printStackTrace();
阅读(41709) | 评论(1) | 转发(0) |
相关热门文章
给主人留下些什么吧！~~
java读取文件最后N行&源代码下载地址：/share/6496.htm
请登录后评论。