0

txtファイルから位置の値を読み取る方法は？テキストファイルに複数の行データを含むテキストファイルがあるように。

10234511234preview compostion 12345  
2034512344566345644444  
2344455555555  
2100000034567

ここで、最初の行から位置を読み取り、定数値と位置を再び7 to 10定数値と一致させたいと思います。11 to 18同じ方法で2行目も同じようにする必要があります。

したがって、開始2桁は、各行のキー値が10,20です。

上記のシナリオのVBAコードを実行する方法を教えてください。

4

1 に答える 1

0

あなたの質問にはさまざまな方法があります.VBAを使用した自動化の1つとして、以下を使用しました。

2 つのシート (同じワークブックの入力と出力など) を使用することをお勧めします。入力シートにはテキスト ファイルからのデータが必要で、出力シートには特定の位置 (10,20 など) から始まるデータが表示されます。

入力シートにボタンを追加し、そのクリック イベントで以下のコードを記述します (テキスト ファイルの C7 セルからデータを貼り付けます)。

まず、以下のコードを使用して行の総数を取得します。

usedRowCount = Worksheets("Input").UsedRange.Rows.Count

次に、以下のコードを使用して特定の場所から文字列をコピーし、以下のコードを使用して出力シートに貼り付けます。

For i = 1 To usedRowCount

'Get the first row in variable strRecord

strRecord = Worksheets("Input").Cells(i, "C").Value        
'Copy substring from 10th posotion, 6 characters and copy it to sheet Output position A1  
Worksheets("Output").Cells(i, "A").Value = Mid(CStr(strRecord), 10, 6)    
'Copy substring from 20th posotion, 8 characters and copy it to sheet Output position B1  
Worksheets("Output").Cells(i, "B").Value = Mid(CStr(strRecord), 20, 8)    
'Copy substring from 30th posotion, 4 characters and copy it to sheet Output position C1  
Worksheets("Output").Cells(i, "C").Value = Mid(CStr(strRecord), 30, 4)    
next i
于 2012-10-26T10:18:33.313 に答える