[已解决]请教如何从TXT文件中获取指定数据的方法？

qiaodong64

请教如何从TXT文件中获取指定数据的方法？

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-6-2 13:46

在注意一下紅色部份，做適當的修改！

Sub demo()
   Set d = CreateObject("Scripting.Dictionary")
   Set f = CreateObject("ADODB.Stream")
   a = Sheet1.UsedRange
   For i = 2 To UBound(a)
      d(a(i, 9) & ".txt") = i
   Next
   Path = ThisWorkbook.Path & "\有效期\"
   file = Dir(Path & "*.txt")
   Do Until file = ""
      Key = Right(file, 15)
      If d(Key) = 0 Then GoTo 1
      f.Charset = "utf-8": f.Open
      f.LoadFromFile Path & "\" & file
      v1 = Split(f.ReadText(-2), ":")
      v2 = Split(f.ReadText(-2), ":")
      v3 = Split(f.ReadText(-2), ":")
      If UBound(v1) = 1 Then a(d(Key), 8) = v1(1) & "-" & v3(1)
      f.Close
1:
      file = Dir()
   Loop
   [a1].Resize(UBound(a), UBound(a, 2)) = a
End Sub

祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

cutecpu

在注意一下紅色部份，做適當的修改！

Sub demo()
   Set d = CreateObject("Scripting.Dictionary")
   Set f = CreateObject("ADODB.Stream")
   a = Sheet1.UsedRange
   For i = 2 To UBound(a)
      d(a(i, 9) & ".txt") = i
   Next
   Path = ThisWorkbook.Path & "\有效期\"
   file = Dir(Path & "*.txt")
   Do Until file = ""
      Key = Right(file, 15)
      If d(Key) = 0 Then GoTo 1
      f.Charset = "utf-8": f.Open
      f.LoadFromFile Path & "\" & file
      v1 = Split(f.ReadText(-2), ":")
      v2 = Split(f.ReadText(-2), ":")
      v3 = Split(f.ReadText(-2), ":")
      If UBound(v1) = 1 Then a(d(Key), 8) = v1(1) & "-" & v3(1)
      f.Close
1:
      file = Dir()
   Loop
   [a1].Resize(UBound(a), UBound(a, 2)) = a
End Sub

祝順心，南無阿彌陀佛！

qiaodong64

cutecpu 发表于 2021-6-2 13:46
在注意一下紅色部份，做適當的修改！

Sub demo()

你好，这个20070528-20270528日期间 能否加上小数点呢，类似2007.05.28-2027.05.28

cutecpu

qiaodong64 发表于 2021-6-2 13:51
你好，这个20070528-20270528日期间 能否加上小数点呢，类似2007.05.28-2027.05.28

改藍色部份就好

Sub demo()
   Set d = CreateObject("Scripting.Dictionary")
   Set f = CreateObject("ADODB.Stream")
   a = Sheet1.UsedRange
   For i = 2 To UBound(a)
      d(a(i, 9) & ".txt") = i
   Next
   Path = ThisWorkbook.Path & "\有效期\"
   file = Dir(Path & "*.txt")
   Do Until file = ""
      Key = Right(file, 15)
      If d(Key) = 0 Then GoTo 1
      f.Charset = "utf-8": f.Open
      f.LoadFromFile Path & "\" & file
      v1 = Split(f.ReadText(-2), ":")
      v2 = Split(f.ReadText(-2), ":")
      v3 = Split(f.ReadText(-2), ":")
      If UBound(v1) = 1 Then a(d(Key), 8) = Format(v1(1), "0\.00\.00;;;@") & "-" & Format(v3(1), "0\.00\.00;;;@")
      f.Close
1:
      file = Dir()
   Loop
   [a1].Resize(UBound(a), UBound(a, 2)) = a
End Sub

祝順心，南無阿彌陀佛！

qiaodong64

cutecpu 发表于 2021-6-2 14:01
改藍色部份就好

Sub demo()

非常感谢你的帮助，谢谢！！！

qiaodong64

cutecpu 发表于 2021-6-2 14:01
改藍色部份就好

Sub demo()

放到“身份证国徽页面资料”中执行程序没有反应，是不是我哪个地方弄错了呢？

cutecpu

qiaodong64 发表于 2021-6-2 15:01
放到“身份证国徽页面资料”中执行程序没有反应，是不是我哪个地方弄错了呢？

如果是放在資料夾裡面執行的話，把下面這句改一下(藍變紅)：  
Path = ThisWorkbook.Path & "\有效期\"
Path = ThisWorkbook.Path & "\"

祝順心，南無阿彌陀佛！

qiaodong64

cutecpu 发表于 2021-6-2 15:08
如果是放在資料夾裡面執行的話，把下面這句改一下(藍變紅)：  
Path = ThisWorkbook.Path & "\有效期\"
...

另外年月日之间  用“点号”隔开的话，这句 If UBound(v1) = 1 Then a(d(Key), 8) = Format(v1(1), "0\.00\.00;;;@") & "-" & Format(v3(1), "0\.00\.00;;;@") 如何修改呢

cutecpu

qiaodong64 发表于 2021-6-2 15:23
另外年月日之间  用“点号”隔开的话，这句 If UBound(v1) = 1 Then a(d(Key), 8) = Format(v1(1), "0\. ...

您好，這句已經是用 . 號隔開了喔 → 例: 2021.06.02- 2021.06.03

qiaodong64

cutecpu 发表于 2021-6-2 15:25
您好，這句已經是用 . 號隔開了喔 → 例: 2021.06.02- 2021.06.03

是我弄错了，非常感谢你！！！