vbscript - 在文本文件顶部插入行无法使用 VBScript
问题描述
我必须用我的新页眉值替换页眉,并且需要删除页脚。
输入:
标题 值1||值2|值3|值4 值 7|值 3||值 1|值 1 值 1|值 9|值 1||值 1 值 1||值 1|值 1|值 1 值 1||值 1|值 1|值 6 页脚
我需要如下:
新标题 值1||值2|值3|值4 值 7|值 3||值 1|值 1 值 1|值 9|值 1||值 1 值 1||值 1|值 1|值 1 值 1||值 1|值 1|值 6
我正在尝试的方式是:
Set oFso = CreateObject("Scripting.FileSystemObject")
Set oFile = oFso.OpenTextFile(filePath, 1, True)
strContents = Split(oFile.ReadAll, vbCrLf)
For i=0 To UBound(strContents)
strContents(0) 'I get header and replace with my new header
Next
但从strContents(0)
文本文件返回整个值。如何处理?
解决方案
试试这个代码。希望你能得到你的结果。
filePath="C:\Users\admin\Desktop\Qtpfile.txt"
strModifytest=""
Set oFso = CreateObject("Scripting.FileSystemObject")
Set oFile = oFso.OpenTextFile(filePath, 1, True)
strContents = Split(oFile.ReadAll, vbCrLf)
strModifytest=Replace(strContents(0), "Header","NewHeader") & vbCrLf
For i=1 To UBound(strContents)-1
strModifytest=strModifytest & strContents(i) & vbCrLf
Next
MsgBox strModifytest
Set oFso1 = CreateObject("Scripting.FileSystemObject")
Set oFile1 = oFso1.OpenTextFile(filePath, 2, True)
oFile1.Write(strModifytest)
请让我知道这是否有效。
推荐阅读
- javascript - 我对 2 个不同的输出感到困惑,因为 setTimeout 是异步的,fn 定义应该在回调执行时更新为“2”
- web - Service Worker 可以拦截来自 Web Worker 的 http 请求吗?
- c - 16位对象数组的memcpy可以在两者之间中断吗
- python - 生成组合,使总数始终为 100,并使用定义的跳跃值
- json - 如何在导入json文件期间将mongodb中唯一名称的一阶键设置为id
- python - 通过比较散列密码登录
- java - 为什么在链表的节点中插入值时需要一个临时节点?
- javascript - npm 中的 ERR_SSL_WRONG_VERSION_NUMBER
- python - TypeError: __init__(): 构造函数参数与 face_recognition 调用不兼容
- sql - 如何在 sqlite 中过滤 SUM(flag) OVER (...)