0

テキスト ファイルからデータを読み取り、読み取ったデータを Excel に保存する必要があります。

テキスト ファイルには、1111111111222222222333333333Taaaaaaaassssssss が含まれています。ここでは、最初の 10 文字を読み取り、それらを Excel の列に保存し、テキスト ファイルの 1 行全体に保存します。

これを QTP で実行しようとしている場合は、これについて助けを求めてください。

4

1 に答える 1

0

使用できる戦略:

  1. 自動化により、COM インスタンスを Excel ファイルに作成します。CreateObject("Excel.Application")QTPでそれを達成するために使用します。最初のセルを ActiveCell にする

  2. テキストファイルを開き、 a を実行し.readallて結果を文字列に保存します

  3. for each line in split(readAllString, vbNewLine)すべての行で to ループを実行する

  4. For ループの本体で:

    • linelike:の長さにわたってループし、for characterPosition = 1 to len(line) step 10このループ内で:
      • を実行してmid(line, characterPosition, 10)10 文字のセットを取得します
      • 結果を ActiveCell に書き込み、ActiveCell を 1 列シフトします。
    • ActiveCell を最初の列と次の行にシフトします
  5. クリーンアップ、Excelファイルなどを閉じます。

ステップ 1 と 2 はインターネットで簡単に調べることができます。他のステップは非常に単純な VBScript 機能です。試してみて、問題が発生した場合は、投稿に追加してください。どこで修正できるかがわかります。

于 2012-08-10T08:10:34.573 に答える