7,762
社区成员
发帖
与我相关
我的任务
分享是 如 何 在 文 本 文 件 中 查 找 指 定 字 符 并 将 其 替 换 成 别 的 字 符 ？
3124424
各 位 高 人 ：
我 叫 强 力 胶 ， 是 个 菜 鸟 ！ 这 几 天 遇 上 了 点 困 难 ， 十 分 万分着 急 ！ 不 知 那 位 能救 我 ！
我 在 用 vb编 一 个 小 程 序 。 其 中 有 一 点 ： 就 是 如 何 在 文 本 文 件 中 查 找 指 定
的 我 知 道 这 难 不 到 各 位 ， 请 您 指 教 ！ 万 分 感 谢 ！
(我十分着急 ，谢谢各位 ，千万别不理我 ）
强 力 胶
mujnet.yeah.net
各 位 高 人 ：
我 叫 强 力 胶 ， 是 个 菜 鸟 ！ 这 几 天 遇 上 了 点 困 难 ， 十 分 万分着 急 ！ 不 知 那 位 能救 我 ！
我 在 用 vb编 一 个 小 程 序 。 其 中 有 一 点 ： 就 是 如 何 在 文 本 文 件 中 查 找 指 定
的 我 知 道 这 难 不 到 各 位 ， 请 您 指 教 ！ 万 分 感 谢 ！
(我十分着急 ，谢谢各位 ，千万别不理我 ）
强 力 胶
mujnet.yeah.net
...全文
请发表友善的回复…
发表回复
Un1 2000-04-29
- 打赏
- 举报
l = filelen(filepath)
open filepath for binary as #1
dim bt() as byte
redim bt(l-1)
get #1,,bt
close #1
kill filepath
open filepath for output as #1
print #1,,replace(strconv(bt,vbunicode),findstr,repstr,,,compare)
close #1
open filepath for binary as #1
dim bt() as byte
redim bt(l-1)
get #1,,bt
close #1
kill filepath
open filepath for output as #1
print #1,,replace(strconv(bt,vbunicode),findstr,repstr,,,compare)
close #1
