ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2024年3月29日(金) 23:48

全ての表示時間は UTC+09:00 です




新しいトピックを投稿する  トピックへ返信する  [ 2 件の記事 ] 
作成者 メッセージ
 記事の件名: 文字列の置き換え
投稿記事Posted: 2009年4月09日(木) 22:09 
プログラムを始めて3ヶ月の初心者です。

ファイル(約100M)を読み込み、$Nameを探し"山田 太郎"に変換したいのですが、どうすすればよいのでしょう?

ファイルサイズを調べ、メモリを確保しファイルを読み込むまではできたのですが、単純に文字列を置き換えると、バイト長が異なるので後ろの部分が壊れてしまします。
変換用に別メモリを確保し、コピーしながら変換していくのも、変換に必要なサイズを予測できません。
EditBoxをメモリ代わりにしてみましたがうまく行きませんでした。(容量制限?)

また、工夫をしないと速度がとても遅くなると思います。

何か良い方法は有りませんか?


通報する
ページトップ
   
 記事の件名:
投稿記事Posted: 2009年4月10日(金) 00:10 
オフライン

登録日時: 2005年7月25日(月) 13:27
記事: 893
お住まい: 埼玉県東松山市
5分くらいの事路(SJISでエンコードされていると仮定すると)$Nameを"山田 太郎"に変換するとしたら5バイトが12バイトになる為、結果の最大長は元の2.4倍になります。
そこで以下のような手順が考えられます。

1. (ファイルサイズが100MBだとして)100MB確保し、ファイルを読み込む。
2. ファイルサイズの2.4倍にあたる240MBを確保する。
3. 以下のような奴を回す。
コード:
'方法を説明するためのもの。実際に動かしてみたわけじゃないので正確に動くとは限らない。
'inbuf (As *Byte)は入力、outbuf(As *Byte)は出力。
i=0
j=0
Do
    k=InStr(i+1,MakeStr(inbuf),"$Name")-1
    if k=0 then
        lstrcat(outbuf+j,inbuf+i)
    else
        memcpy(outbuf+j,inbuf+i,k-i)
        lstrcat(outbuf+j,Ex"\q山田 太郎\q")
        j=j+(k-i)+12'12=lstrlen(Ex"\q山田 太郎\q")
        i=k+5'5=lstrlen("$Name")
    end if
Loop
4. 必要ならファイルに書き込む。

_________________
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。

に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。


通報する
ページトップ
期間内表示:  ソート  
新しいトピックを投稿する  トピックへ返信する  [ 2 件の記事 ] 

全ての表示時間は UTC+09:00 です


オンラインデータ

このフォーラムを閲覧中のユーザー: Ahrefs [Bot], Bing [Bot] & ゲスト[21人]


トピック投稿:  可
返信投稿:  可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

検索:
ページ移動:  
cron
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by ocean