投稿日	： 2005/09/07(Wed) 18:13
投稿者	： NDK
Ｅメール	：
ＵＲＬ	：
タイトル	： 文字の置き換えについて

　お世話になります。
今、数千行のCSVファイルをバイナリーモードで開き、
Replaceで「,」を「TAB」に置き換える処理を行なっていますが、
Replaceの処理が遅い様です。　他の方法は無いでしょうか？
よろしくお願い致します。

    iFree = FreeFile
    Open sFile For Binary Access Read As #iFree
        lLen = LOF(iFree)
        
        If (0 < lLen) Then
            ReDim bytArray(lLen - 1)
            Get #iFree, , bytArray
        End If
    Close #iFree

    sCovText = StrConv(bytArray, vbUnicode)
    sCovText = Replace(sCovText, ",", vbTab)

    Kill sText

    iFree = FreeFile
    Open sText For Binary Access Write As #iFree
        Put #iFree, , sCovText
    Close #iFree

★ - 文字の置き換えについて - NDK 09/07-18:13No.4307
• Re: 文字の置き換えについて - いな 09/07-18:21 No.4308
  • Re^2: 文字の置き換えについて - NDK 09/07-19:09 No.4309
    • Re^3: 文字の置き換えについて - いな 09/07-19:40 No.4310
      • Re^4: 文字の置き換えについて - ガッ 09/07-20:31 No.4311
• Re: 文字の置き換えについて - 花ちゃん 09/07-21:00 No.4312
  • 文字の置換(テスト結果) - 花ちゃん 09/08-09:51 No.4315
  • Re^2: 文字の置き換えについて - NDK 09/08-11:04 No.4317
    • Re^3: 文字の置き換えについて - 花ちゃん 09/08-11:49 No.4318
      • Re^4: 文字の置き換えについて - NDK 09/08-18:28 No.4324