![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
任意の長さのテキスト文があるとします。
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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA 改行コードの取り方 1 2022/03/22 14:14
- その他(プログラミング・Web制作) プログラミング pythonの問題について 2 2022/04/19 00:41
- Visual Basic(VBA) VBAで、特定の文字より後を削除して残った数値を文字列に変換と特定の文字より前も削除したい 3 2022/04/15 19:21
- Excel(エクセル) Excelのマクロで、特定のセルから順番に値を取得したい 5 2022/12/06 15:34
- Excel(エクセル) PHPプログラムをエクセルに張り付けると検索ボックスがでてくる! 3 2022/05/08 07:10
- その他(コンピューター・テクノロジー) 【Tableau Desktop】文字列から8桁の数字を日付型(yyyyMMdd)として取得 1 2023/07/31 10:17
- PHP PHPの構文で間違えが分からない 5 2022/07/11 16:38
- UNIX・Linux sedでの正規化 2 2022/05/10 11:39
- Excel(エクセル) Excelの列から検索して該当する行を別シートに転記するVBA 2 2022/12/20 09:35
- Visual Basic(VBA) エクセルVBA 2 2022/04/27 13:29
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
-
4
VBAで、特定の文字より後を削除して残った数値を文字列に変換と特定の文字より前も削除したい
Visual Basic(VBA)
-
5
【VBA】テキストファイルから特定の文字列を抽出して、エクセルに出力する
Excel(エクセル)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
エクセルvba (ByVal Target As Range)について
Excel(エクセル)
-
8
コンボボックス内の文字サイズ変更
Excel(エクセル)
-
9
EXCEL VBAで、セルの文字列の前後に文字を入力する方法は?
その他(Microsoft Office)
-
10
【Excel】【VBA】空白のセルに上のデータを入力する方法
その他(Microsoft Office)
-
11
【VBA】テキストファイルを指定行数からの読み込み
Visual Basic(VBA)
-
12
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
13
【VBA】複数のtxtファイルから特定区間の複数行を呼び出し、エクセルにまとめたい。
Visual Basic(VBA)
-
14
vba 時間の引き算 例えば 15:00から16:15の間の時間は1時間15分ですが、vbaのコード
Visual Basic(VBA)
-
15
【vba】指定範囲の中に任意の文字があるときの条件分岐
Excel(エクセル)
-
16
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
17
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
18
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
19
エクセルVBAでセル番地を指定してオブジェクト名取得
Excel(エクセル)
-
20
EXCELで=より左の文字を一括で削除したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「取得先」という表現について
-
ps3で久しぶりにCDの音楽情報取...
-
Yahoo! JAPAN IDを新規取得でき...
-
EXCEL、マクロ-改ページ行番号...
-
ASP(.netではありません)でのUs...
-
Excel VBA:特定の文字列以降(...
-
VB2005でXMLデータから複数ある...
-
(Win32)ファイルパスから物理ド...
-
VBで他アプリの「syslistview32...
-
ミュージックのアートワークを...
-
IPアドレスとMACアドレスを取得...
-
Dosブロンプトでtabを出力したい
-
shシェルスクリプト 空白行の...
-
wordの差し込み印刷で文字...
-
【C#】DataGridViewの最大列数...
-
excel access連携 このテーブル...
-
バッチファイルでpingの結果を...
-
DTOとEntityの差は何ですか。
-
switch()文で値の大小比較
-
phpでcookieがうまく保存されない
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「取得先」という表現について
-
Yahoo! JAPAN IDを新規取得でき...
-
ps3で久しぶりにCDの音楽情報取...
-
IPアドレスとMACアドレスを取得...
-
format関数について
-
Excel VBA:特定の文字列以降(...
-
【VBA】EXCELブックを開かずに...
-
EXCEL、マクロ-改ページ行番号...
-
ローカルのコンピュータ名を取...
-
【C#】FindWindowExの使い方を...
-
VBAでPDFのアクティブページ番...
-
ミュージックのアートワークを...
-
VBS「開いているページ」のURL...
-
VB or VBScriptでPCの製造番号...
-
VBAでPDFファイルの文書のプロ...
-
表示している画面サイズの取得方法
-
積立投資してます。現在平均取...
-
アクセスの度にIPアドレスを変...
-
各クライアントマシンのログイ...
-
VB.NETでボリュームを取得・設...
おすすめ情報