私は会社で表計算をしているのですが、.txtファイルの計算が大変で、
.txtファイルを読み込んで変換したいのですが、コードを教えていただけないでしょうか。下のように変換をしたいのですが・・・
2月201,700の仕入れ
3月195,030の仕入れ
4月230,500の仕入れ
5月219,000の仕入れ
↓
201,700
195,030
230,500
219,000
こんにちわ刈谷です
暇潰しに適当にコードくんでみました。
単純作業は面倒だけどそれをパソコンにやらせるためにわざわざアプリ作る方が面倒である。
[ここをクリックすると内容が表示されます]
一つ思ったこと。コード: 全て選択
Dim A$ As String
Open "Inp.txt" For Input As #1
Open "Out.txt" For Output As #2
While A$<>""
Input #1,A$
A$=Mid$(A$,5,7)
Print #2,A$
Wend
Close #1
Close #2
End
単純作業は面倒だけどそれをパソコンにやらせるためにわざわざアプリ作る方が面倒である。
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。
> 暇潰しに適当にコードくんでみました。
さてさて、事はそう簡単にいくとは限りませんよ。
今回の場合、ABのバージョンが分からないのですが、悪くするととんでもない結果になりかねません。
まず、1つ目の問題ですが、データに”,”カンマが含まれていると言うことです。ABまたはCではこれをデータ区切りに使用しているのでカンマの前後で異なるデータとしてINPUTされてしまいます。
(簡単にいうとLine Inputを使わないといけないと言うことです。)
次に、2つ目の問題点を挙げると質問の例からして”12月”が出てくる可能性があると言うことです。
InStr()関数などを使って”月”及び”の”という文字列の位置を調べたほうが無難でしょう。
さてさて、事はそう簡単にいくとは限りませんよ。
今回の場合、ABのバージョンが分からないのですが、悪くするととんでもない結果になりかねません。
まず、1つ目の問題ですが、データに”,”カンマが含まれていると言うことです。ABまたはCではこれをデータ区切りに使用しているのでカンマの前後で異なるデータとしてINPUTされてしまいます。
(簡単にいうとLine Inputを使わないといけないと言うことです。)
次に、2つ目の問題点を挙げると質問の例からして”12月”が出てくる可能性があると言うことです。
InStr()関数などを使って”月”及び”の”という文字列の位置を調べたほうが無難でしょう。
あなたの意見には賛成しますが、そこまで暇がなかった。>>NoWestさん
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。