Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


29772 / 76732 ←次へ | 前へ→

【52235】Re:OpenAsTextStreamで、テキストファイルの特定の文字列に文字を追加したい
発言  ichinose  - 07/11/2(金) 8:36 -

引用なし
パスワード
   おはようございます。

出かけてしまうのでヒントになるコードだけ・・・。

新規ブックの標準モジュールに
'==============================================
Sub main()
  Dim s As String
  s = "ああああああああああああああああ"
  MsgBox myreplace(s)
  s = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
  MsgBox myreplace(s)
  s = "CREATE TABLE ""○○○○"" ("
  MsgBox myreplace(s)
  s = "いいいいいいいいいいいいいいいいい"
  MsgBox myreplace(s)
End Sub
'=================================================================
Function myreplace(mystr As Variant) As Variant
  Dim matches As Object
  Dim mm As Object
  myreplace = mystr
  With CreateObject("VBScript.RegExp")
    .Pattern = "^CREATE TABLE "".+"""
    .IgnoreCase = True
    .Global = True
    Set matches = .Execute(mystr)
    For Each mm In matches
      .Pattern = mm.Value
      myreplace = .Replace(mystr, Mid(mm.Value, 1, Len(mm.Value) - 1) & "P" & """")
      Next
    End With
End Function


上記のmainを実行してみてください。
結果から、参考にしてください

0 hits

【52163】OpenAsTextStreamで、テキストファイルの特定の文字列に文字を追加したい moto 07/10/26(金) 0:04 質問
【52164】Re:OpenAsTextStreamで、テキストファイル... ichinose 07/10/26(金) 8:29 発言
【52182】Re:OpenAsTextStreamで、テキストファイル... moto 07/10/26(金) 22:42 お礼
【52233】Re:OpenAsTextStreamで、テキストファイル... moto 07/11/2(金) 0:50 質問
【52235】Re:OpenAsTextStreamで、テキストファイル... ichinose 07/11/2(金) 8:36 発言
【52275】Re:OpenAsTextStreamで、テキストファイル... moto 07/11/4(日) 21:22 質問
【52278】Re:OpenAsTextStreamで、テキストファイル... neptune 07/11/4(日) 23:04 発言
【52280】Re:OpenAsTextStreamで、テキストファイル... moto 07/11/5(月) 0:07 質問
【52283】Re:OpenAsTextStreamで、テキストファイル... りん 07/11/5(月) 1:15 発言
【52290】Re:OpenAsTextStreamで、テキストファイル... ichinose 07/11/5(月) 19:42 発言
【52301】Re:OpenAsTextStreamで、テキストファイル... moto 07/11/7(水) 0:27 お礼
【52314】Re:OpenAsTextStreamで、テキストファイル... moto 07/11/8(木) 0:20 お礼

29772 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free