
任意の長さのテキスト文があるとします。
str0 = "今日の天気は晴れです。"
この文で、「天気は」という文字列以前、あるいは以降の文をすべて取得するにはどうしたらよいでしょうか。
最終的な目的は「晴れ」という文字列を抜き出したいだけですので、別の方法があればそちらでも構いません。ただし、その文に「晴れ」という文字が入っているかどうかは取得前は不明ですので、「晴れ」を検索語にする方法ではありません。また、「天気は」、「です。」の文字は確実に文章に含まれているのですが、何文字目にあるかということも不明の場合を想定しています。
次のようなプロセスを考えています。
1.str0から「天気は」以降の文を取得 → str1 = "晴れです。"
2.str1から「です。」以前の文を取得 → str2 = "晴れ"
No.1ベストアンサー
- 回答日時:
お早うございます。
こんな感じで如何でしょうか。
Sub 文字列取得()
Dim str0 As String
Dim str1 As String
Dim str2 As String
Dim wFindStr As String
'
str0 = "今日の天気は晴れです。"
'str0から「天気は」以降の文を取得
wFindStr = "天気は"
str1 = Mid(str0, Len(wFindStr) + InStr(1, str0, wFindStr))
'
'str1から「です。」以前の文を取得
wFindStr = "です。"
str2 = Left(str1, InStr(1, str1, wFindStr) - 1)
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
VBAで、特定の文字より後を削除して残った数値を文字列に変換と特定の文字より前も削除したい
Visual Basic(VBA)
-
ある特定の文字以降全て削除したいです。
Excel(エクセル)
-
【VBA】テキストファイルから特定の文字列を抽出して、エクセルに出力する
Excel(エクセル)
-
-
4
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
5
指定した文字があった場合、その行を削除するマクロが欲しいです
Excel(エクセル)
-
6
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
7
【Excel VBA】複数ある特定の文字列を含む行を削除
Excel(エクセル)
-
8
【VBA】特定の文字で改行(次の行)に行きたい。
Visual Basic(VBA)
-
9
WorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】
Excel(エクセル)
-
10
ExcelのVBAで連番を振る。
Excel(エクセル)
-
11
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
12
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
13
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
14
VBAで特定の文字以降の文字列の色の変更をしたい
Excel(エクセル)
-
15
マクロで#N/A"のエラー行を削除したい"
Visual Basic(VBA)
-
16
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
17
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
18
VBAでの Replace関数で、ワイルドカードは使えないのでしょうか?
Visual Basic(VBA)
-
19
VBAで重複する項目を1つにまとめて金額を合計したい
Excel(エクセル)
-
20
【VBA】2つのシートの値を比較して条件一致したら、同じ行の隣の値を別ブックへ転記したいです。 VB
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBA:特定の文字列以降(...
-
コンビニで住民票を取得した場...
-
「取得先」という表現について
-
ミュージックのアートワークを...
-
TreeViewのChild Node
-
グローバルIPの取得方法
-
【C#】FindWindowExの使い方を...
-
DMMの動画を全件取得したのです...
-
アクセスの度にIPアドレスを変...
-
実行中の他のアプリのパスの取...
-
VBAでPDFのアクティブページ番...
-
自動車教習所について 質問 普...
-
Yahoo! JAPAN IDを新規取得でき...
-
小数点以下0の非表示
-
【C#】DataGridViewの最大列数...
-
バッチファイルでpingの結果を...
-
セッション変数にパスワードを...
-
Access グループごとのページ...
-
excel access連携 このテーブル...
-
エラーの理由が分りません。Pri...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「取得先」という表現について
-
Excel VBA:特定の文字列以降(...
-
コンビニで住民票を取得した場...
-
EXCEL、マクロ-改ページ行番号...
-
Yahoo! JAPAN IDを新規取得でき...
-
ps3で久しぶりにCDの音楽情報取...
-
スクレイピングに適した言語を...
-
VB+SQLserverでRecordCount問題
-
format関数について
-
IPアドレスとMACアドレスを取得...
-
VBAでPDFのアクティブページ番...
-
PHPを使って、別サイトの一部を...
-
【VBA】EXCELブックを開かずに...
-
IPアドレス変更方法
-
VB.NETでボリュームを取得・設...
-
ログイン処理を自動で行い、目...
-
VB2005でXMLデータから複数ある...
-
curlで取得出来るデータの制限...
-
グーグルページランクの取得方法
-
アメブロでテーマを指定したRSS...
おすすめ情報