作者：绿色风
分类：
时间：2022-08-17
浏览：99
楼主
liuguansky |
Q：如何把下面的TXT文本中的[strings]之前的内容%%之前的内容按[strings]之后的对应关系加以替换？
 KB2378111.rar
A：把TXT内容复制入EXCEL中，用如下代码可以实现：
- Sub justtest()
- Dim Arr, re, Dic, arrt(), i&, m&, arrs, mat
- Set Dic = CreateObject("scripting.dictionary")
- Arr = Sheet1.UsedRange.Formula
- ReDim arrt(1 To UBound(Arr, 1))
- For i = 1 To UBound(Arr, 1)
- arrt(i) = Replace(Join(Application.Index(Arr, i)), " ", "")
- Next i
- m = Application.Match("[strings]", arrt, 0)
- For i = m To UBound(arrt)
- If InStr(1, arrt(i), "=") > 0 Then
- arrs = Split(arrt(i), "=")
- Dic(arrs(0)) = arrs(1)
- End If
- Next i
- Set re = CreateObject("vbscript.regexp")
- With re
- .Global = True
- .Pattern = "%([^%]+)%"
- End With
- For i = 1 To m - 1
- If re.test(arrt(i)) Then
- For Each mat In re.Execute(arrt(i))
- arrt(i) = Replace(arrt(i), mat, Dic(mat.submatches(0)))
- Next
- End If
- Next i
- With Sheet2
- .Activate
- .Cells.Clear
- .Name = "转化后结果"
- .Cells(1, 1).Resize(UBound(arrt), 1) = Application.Transpose(arrt)
- End With
- Set Dic = Nothing
- Set re = Nothing
- End Sub
桌面.rar
|
2楼
eliane_lei |
进来学习,谢谢分享!
|
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一