VBA如何判断一个txt文件里有没有adb pull特定后缀文件的字符“ABC”？

来源：蜘蛛抓取(WebSpider) 时间：2017-09-03 16:35 标签： 文件夹共享给特定用户
查看: 1530|回复: 5
如何用VBA读取TXT文件中的固定字符，并放到excel单元格中
阅读权限10
在线时间 小时
大家好，我现在想从下面TXT文件中读取“%”前面的数值（0.3432、0.0235、0.3443）到excel单元格中，已知%到数值之间有22个字符的间距
&&标称值& && && & 公差&&上公差& && && &&&下公差& && && &&&实测值& && && &偏差& && && && &公差利用
& &&&平面, 测量的& && && && && && && && & 6& && &--& && &&&8& && && &0.0235 PLANE F
& &1 位置公差 d [Z]& && && && && && && && &&&150.& && && && && & PLANE F
129& && && & 0.0000& && && &&&t=& & 0.4000& && && && && && && && &
<font color="#.3432& && && & 0.3432& & 86%& &.--------*-
& && &&&X& &&&0.0000& && && && && && && && && && && && && && & X& && & ----
& && &&&Y& &&&0.0000& && && && && && && && && && && && && && & Y& && & ----
& && &&&Z& & 10.0000& && && && && && && && && && && && && && & Z& &&&9.9974
& &&&平面, 测量的& && && && && && && && & 6& && &--& && &&&8& && && &0.0235 PLANE F
& &2 平面度& && && && && && && && && && && && && && && && && && && && && &&&PLANE F
129& && && & 0.0000& && && &&&t=& & 0.1000& && && && && && && && &&&<font color="#.0235& && && & 0.0235& & 24%& &.--*-------
& &&&平面, 测量的& && && && && && && && & 7& && &--& && & 26& && && &0.0387
& &3 位置公差 d [Z]& && && && && && && && &&&126.& && && && && & PLANE D
129& && && & 0.0000& && && &&&t=& & 0.4000& && && && && && && && &&&<font color="#.3443& && && & 0.3443& & 86%& &.--------*-
& && &&&X& &&&0.0000& && && && && && && && && && && && && && & X& && & ----
& && &&&Y& &&&0.0000& && && && && && && && && && && && && && & Y& && & ----
& && &&&Z& &&&8.4000& && && && && && && && && && && && && && & Z& &&&8.3782
附件是3个文本文件，希望哪位帮小弟看下，怎么编。
(13.67 KB, 下载次数: 33)
13:19 上传
点击文件名下载附件
阅读权限95
在线时间 小时
Sub test1()
'需要安装ACTIVERUBY ，下载地址 http://www.artonx.org/data/asr/Ruby-2.1.1.msi
& & Set ojs = CreateObject(&scriptcontrol&): ojs.Language = &rubyscript&
& & y = ojs.eval(&Dir.chdir('& & ThisWorkbook.Path & &');o=[];Dir.glob('*.txt').map{|f|o+=File.open(f,'r').readlines};o.select{|x|x=~/\=/}.map{|x|x.split(/\s+/)[-4]}.zip&)
& & [a1].Resize(UBound(y) + 1) = y
& & 'Stop
End Sub复制代码
阅读权限10
在线时间 小时
不用安装任何插件，把附件的excel和你的三个txt放在同一个路径下打开，数据就提取出来了。
06:07 上传
点击文件名下载附件
12.96 KB, 下载次数: 88
阅读权限95
在线时间 小时
不嫌啰嗦的话，可以考虑用excel打开文本，筛选看看就知道了
阅读权限10
在线时间 小时
benzhangyuan 发表于
不用安装任何插件，把附件的excel和你的三个txt放在同一个路径下打开，数据就提取出来了。
非常感谢，我还要再好好研究学习一下。
阅读权限10
在线时间 小时
bluexuemei 发表于
虽然代码我没看懂，但还是非常感谢。
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师如题，vba中 检索一个txt文件中的字符串如何实现？
可以给你提供个思路:
用QueryTables.Add 加载 具体txt到excel
再遍历检索。
希望能给你帮助！
&#039;用一个事件即可,见附件Dim 前内容Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Objec...
VBA（Visual Basic for Applications，Visual Basic应用程序设计语言）是Visual Basic和许多可编程软件应用程序...
VBA中，判断是否是数值的函数是ISNUMERIC()比如 If Isnumeric(Sheets(&#034;Sheet1&#034;).[A1]) then msgbox &#034;数...
如果TXT文件较大，而不是经常转换，我给你一个与Word联用的方法。将TXT内容copy到Word中1：选取全部，将换行（^p)“替换”为“_”注意：这里假设T...
a = Ubound(split(,vbLf)）a的值就是行数不过没有试过，不知道可以没有。自动换行的话就试一下，用行数 = 总字符数/(单元格宽度/一个字符的...
答: 李主任，您好，我想问一个问题
答: 好在有许多成熟的安全和网络技术，例如虚拟私有网络（VPN）和防火墙等，能够极大地提高Web服务应用的安全和性能，让开发者拥有选择安全技术的自由，而不是非得使用尚...
答: 某些ADSL调制解调器使用USB接口与电脑相连，需要在电脑上安装指定的软件以添加虚拟网卡来进行通信
大家还关注
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区查看: 3659|回复: 5
[已解决]判断txt文件的行数
本帖最后由 billyzhang0609 于
16:29 编辑
想要做到如果txt文件只有一行，退出程序。
& && && && &如果txt文件&1行，读取txt文件的内容。
这个判断txt文件内容有几行怎么写程序？
附件我已经上了，两个模块中的代码，经过测试，都无法真确判断txt文件的行数。
我想直接判断txt文本的行数，而不是通过将内容复制到execl中再来判断行数。
16:12 上传
点击文件名下载附件
13.07 KB, 下载次数: 8
QLZ0602发布于
billyzhang0609 发表于
我已经补充了问题，添加了附件。
Private Sub Command1_Click()
Open &C:\Users\lenovo\Desktop\test1\test1\3.txt& For Input As #1
Do While Not EOF(1)
&&Line Input #1, S$
&&If S$ && && Then n = n + 1
MsgBox &D:\111.txt 共有 & & n & & 行。&
因为3.txt 存在1条空行
Private Sub Command1_Click()
Open &c:\test\1.txt& For Input As #1
Line Input #1, s
If Not EOF(1) Then
MsgBox &&I&A&frac14;&&sup2;&&O&sup1;&O&&ETH;&ETH;&
MsgBox &&I&A&frac14;&&O&&O&ETH;&O&&ETH;&ETH;&&& & vbCrLf & s
测试下来，当txt文本超过一行，仍然跳提示文本只有一行。
QLZ0602 发表于
我已经补充了问题，添加了附件。
Function Rows(xPath As String) As Long
Dim temp As String
Open xPath For Input As #1
Do Until EOF(1)
Line Input #1, temp
Rows = Rows + 1
End Function
Private Sub Command1_Click()
MsgBox Rows(&c:\test\1.txt&)
测试了这个代码，似乎是行得通的。
&&&本楼为最佳答案&&&
billyzhang0609 发表于
我已经补充了问题，添加了附件。
Private Sub Command1_Click()
Open &C:\Users\lenovo\Desktop\test1\test1\3.txt& For Input As #1
Do While Not EOF(1)
&&Line Input #1, S$
&&If S$ && && Then n = n + 1
MsgBox &D:\111.txt 共有 & & n & & 行。&
因为3.txt 存在1条空行
Powered by

我要回帖

更多关于 文件夹共享给特定用户 的文章

 

随机推荐