![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
任意の長さのテキスト文があるとします。
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も見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
-
4
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
5
VBAで、特定の文字より後を削除して残った数値を文字列に変換と特定の文字より前も削除したい
Visual Basic(VBA)
-
6
エクセルvba (ByVal Target As Range)について
Excel(エクセル)
-
7
【Excel】【VBA】空白のセルに上のデータを入力する方法
その他(Microsoft Office)
-
8
【VBA】テキストファイルを指定行数からの読み込み
Visual Basic(VBA)
-
9
【VBA】テキストファイルから特定の文字列を抽出して、エクセルに出力する
Excel(エクセル)
-
10
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
11
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
12
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
13
コンボボックス内の文字サイズ変更
Excel(エクセル)
-
14
VBA たまに変数がempty値になるエラー
Excel(エクセル)
-
15
VBAで文字列を数値に変換したい
Excel(エクセル)
-
16
【Excel VBA】ネットワーク上の共有フォルダにあるExcelを開く
Excel(エクセル)
-
17
EXCEL VBAで、セルの文字列の前後に文字を入力する方法は?
その他(Microsoft Office)
-
18
マクロでネットワーク上のコンピューターへの接続
Excel(エクセル)
-
19
エクセルでファイルを閉じても空ウィンドウが残ります
Excel(エクセル)
-
20
Excelで2つのデータの突合せをしたいです
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「取得先」という表現について
-
VBA: HTTPでのスクレイピング
-
EXCEL、マクロ-改ページ行番号...
-
C#で特定LANアダプタの状態を取...
-
株価を取得して自分のサイトに...
-
IPアドレス変更方法
-
VBS「開いているページ」のURL...
-
VBA web情報取得(スクレイピン...
-
curlで取得出来るデータの制限...
-
VB2005でXMLデータから複数ある...
-
【VBA】EXCELブックを開かずに...
-
IPアドレスとMACアドレスを取得...
-
Webサイトの情報取得について(...
-
COBOLの動的SQLについて
-
iTunesに自動でジャケット画像...
-
INIファイル
-
携帯のアクセス解析でrefferer...
-
VBAでキーワード検索
-
PHPでテキストファイルの行数を...
-
不正競争防止法に該当するので...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「取得先」という表現について
-
Yahoo! JAPAN IDを新規取得でき...
-
ps3で久しぶりにCDの音楽情報取...
-
自分の掲示板にアクセス解析を...
-
DMMの動画を全件取得したのです...
-
IEを使わないでhtmlテキストを...
-
IPアドレスとMACアドレスを取得...
-
ミュージックのアートワークを...
-
【VBA】EXCELブックを開かずに...
-
format関数について
-
ローカルのコンピュータ名を取...
-
不正競争防止法に該当するので...
-
【C#】FindWindowExの使い方を...
-
アクセスの度にIPアドレスを変...
-
EXCEL、マクロ-改ページ行番号...
-
Excel VBA:特定の文字列以降(...
-
VBAでPDFのアクティブページ番...
-
VB2005でXMLデータから複数ある...
-
VBAでPDFファイルの文書のプロ...
-
perl LWPでURLにアクセスした時...
おすすめ情報