如何在imacros中自动增加列号?

时间:2018-07-22 17:44:52

标签: csv imacros

我很好奇如何自动增加imacros中的列号。 因此,我想将{{!COL**1**}}{{!COL**2**}}增加到{{!COL**8**}}

我已经尝试在1处使用另一个变量。但这不是它的工作方式。 请帮我,如果有人知道怎么做。 我正在使用imacros浏览器,并尝试使用具有8列和100+行的csv文件。 谢谢。

1 个答案:

答案 0 :(得分:0)

如果您使用的是商用iMacros,则可以使用脚本API来执行所需的操作:

contextConfigLocation

在免费的浏览器插件中,此操作无法完成。您可能想看一下Kantu插件,它在免费插件和if/then中支持can do this

Option Explicit

'global variables: use for customization
Dim INPUT_PATH
INPUT_PATH = "C:\Programme\iMacros\datasources\myfile.csv" 'CSV format expected

'initialize macro and related variables
dim iret,iim1,index,initMacro
set iim1 = CreateObject ("imacros")
iret = iim1.iimInit()

' setting up file access
Dim objFileSystem, objInputFile, inputFile, inputFileStream
Set objFileSystem = CreateObject("Scripting.fileSystemObject")
Set inputFile = objFileSystem.GetFile(INPUT_PATH)
Const ForReading = 1 ' means: open for reading
Const TristateDefault = -2 ' means: read as ASCII
Set inputFileStream = inputFile.OpenAsTextStream(ForReading, TristateDefault)


'main loop through all lines in inputFile
Dim aktInputLine, entries

do until (inputFileStream.atEndOfStream)

   'read next line from input file
   aktInputLine = inputFileStream.ReadLine

   'put CSV-data into entries array.
   entries = Split(aktInputLine, ",")

   ' now, entries(0), entries(1), etc contain the actual line's data
   ' and may be used in the script, or - with iimSet() - in a macro.

loop