生成同路径txt，谢谢liulang0808和ykcbf1100老师！

lhj323323 · 发表于 2025-4-10 07:08

本帖最后由 lhj323323 于 2025-4-10 07:10 编辑

liulang0808 发表于 2025-3-30 16:34
适用于文本文件中不存在重复项的，如果存在重复项，那么还得调整代码的

老师：

38楼的模块2.test1里的
Print #1, Mid(Trim(str1), 3)
这个3是什么意思？
快照4.png

liulang0808 · 发表于 2025-4-10 07:43

lhj323323 发表于 2025-4-10 07:08
老师：

38楼的模块2.test1里的

Mid(Trim(str1), 2) 跟 Mid(Trim(str1), 3)就是输出效果
就是mid函数使用，结合输出效果

lhj323323 · 发表于 2025-4-11 05:24

本帖最后由 lhj323323 于 2025-4-11 06:15 编辑

liulang0808 发表于 2025-4-10 07:43
Mid(Trim(str1), 2) 跟 Mid(Trim(str1), 3)就是输出效果
就是mid函数使用，结合输出效果

请老师看下图
3，对应的是哪个圆圈？

快照4.png

lhj323323 · 发表于 2025-4-11 05:53

liulang0808 发表于 2025-4-10 07:43
Mid(Trim(str1), 2) 跟 Mid(Trim(str1), 3)就是输出效果
就是mid函数使用，结合输出效果

Print #1, Mid(Trim(str1), 3)
这句话，是什么意思呢

lhj323323 · 发表于 2025-4-11 05:58

liulang0808 发表于 2025-4-10 07:43
Mid(Trim(str1), 2) 跟 Mid(Trim(str1), 3)就是输出效果
就是mid函数使用，结合输出效果

还有这一句
'Join(arr, vbNewLine)
加与不加，生成的结果，都是一样的

快照4.png

lhj323323 · 发表于 2025-7-2 15:32

liulang0808 发表于 2025-4-10 07:43
Mid(Trim(str1), 2) 跟 Mid(Trim(str1), 3)就是输出效果
就是mid函数使用，结合输出效果

老师：
您说的那个贴，我就是不知道如何调整
不得已，才只好另起一贴。

		自动登录	找回密码
密码			免费注册

[已解决] 生成同路径txt，谢谢liulang0808和ykcbf1100老师！