我有一个访问数据库,其中有一个带有备注字段的表。已以这种格式插入字段。
4 月 2 日 - 一些文字
2 月 20 日 - 一些文字
我想颠倒插入的顺序,所以上面是:
2 月 20 日 - 一些文字
4 月 2 日 - 一些文字
我正在考虑使用正则表达式逐行阅读,任何人都有更好的途径来实现这一点
您的备注字段包含 2 行文本,您想颠倒它们的顺序。您可以使用不需要正则表达式的简单 VBA 过程来做到这一点。
这是一个示例即时窗口会话,它演示了您可以在 VBA 过程中使用的技术。
MyText = "Apr 02 - some text" & vbcrlf & "Feb 20 - some text"
? MyText
Apr 02 - some text
Feb 20 - some text
? Split(MyText, vbcrlf)(1)
Feb 20 - some text
? Split(MyText, vbcrlf)(0)
Apr 02 - some text
如果备注字段可以包含两行以上的文本,您可以加载一个包含结果的数组Split()
,然后以相反的顺序循环遍历该数组。