Dim fso, f1, ts, s Const ForReading = 1 Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.OpenTextFile("e:\serverlist.txt", ForReading)'ts.skipline '跳过一行do until ts.AtEndOfStream '判断是否到文件末尾 tsline = ts.readline'tslines
From_Ip='192.138.60.16'@echo offfor /f "tokens=1,2 delims='" %%a in (D:\ETL\bat\config.txt) do (if "%%a"=="From_Ip=" set From_Ip=%%b)echo %From_Ip% 结果:192.138.60.16 From_Ip=192.138.60.16@echo offfor /f "tokens=1,2 del
s = [] f = open('querylist.txt','r') #由于我使用的pycharm已经设置完了路径,因此我直接写了文件名 for lines in f: ls = lines.strip('\n').replace(' ','').replace('.','/').replace('?','').split('/') for i in ls: s.append(i) f.close() print(s) ===================
Dim fso,f,a set oExcel = CreateObject( "Excel.Application" ) oExcel.Visible = false '4) 打开已存在的工作簿: oExcel.WorkBooks.Open( "F:\1.xlsx" ) On Error Resume Next '判断是否存在Sheet2工作表,不存在新建 If oExcel.WorkSheets("Sheet2") Is Nothing The