VBA - 区切り文字前後で抜き出す

質問

Excel(VBA)で
　区切り文字の前後で抜き出す(フォーマット統一)

A列に
　時間(00:00又は00:00:00）と文字列の組み合わせが複数あります。
順番が以下の2パターン
時間　文字列
文字列　時間

時間は、半角のカッコ"()"で括られている場合もあります。

両者は、半角スペース（1個又は数個）
又はそれ以外の区切り文字列(-,|)で区切られています。
（半角スペースと区切り文字の組み合わせも有り）

これらの統一されていないフォーマットを一つのフォーマットに統一したいと思います。
　統一フォーマット形式は
　　区切り文字として半角スペース(1個）で、下記を想定

　　　hh:mm:ss mojiretu
(hh:mm:ssは、例えば　00:05:15）

B列に変換されたフォーマットを書き出す

------------------------------------------------------
元ターゲットは以下のフォーマットが想定されます。

0:00 second hand news
00:00 00 - It's Not All Truth
#1. 00:00 - Heldom - Hávamál
00:00 - Drifts
00:00:00 Dream of Arrakis
(00:00) Kontora
01. Sun Killer 00:00
1. A World Away | 0:00
1. Imperial - 00:00:00
Silent universe 00:00
01. The Tower [Theme from "The Work"] (00:00)
Dotugo - (00:00:00)
StarBath Jam 1 00:00
Burning 00:00

参考画像
https://imgur.com/CcO1moz
----------------------------------------------
以下で区切り文字（@）の前後で文字列をそれぞれ書き出せますが
　私のやりたいことは複雑なのでどのようにコードを変換したら良いでしょうか　？

DimmyStrAsString
DimfindStrAsString
DimfindNoAsInteger

myStr=Range("A1")
findStr="@"

findNo=InStr(myStr,findStr)

Range("B1")=Left(myStr,findNo-1) '@より前の文字列'
Range("D1")=Right(myStr,Len(myStr)-findNo) '@より後の文字列'

回答No.5

kkkkkm · ベストアンサー

> 表示がおかしい所があります。

2か所ある

' Cells(i, "B").Value = mTime & " " & mStr

を削除して

Nextの前に

If Len(mTime) - Len(Replace(mTime, ":", "")) = 1 Then
mTime = "00:" & mTime
End If
Cells(i, "B").Value = Format(mTime, "hh:mm:ss") & " " & mStr

を追加してください。

0:00 second hand news
が
00:0:00 second hand news
になるので
Format(mTime, "hh:mm:ss")
にしてます。

お礼

kkkkkmさん、今回もおかげさまで
　　訂正されたコードで上手く処理できました。

お礼申し上げます。

回答No.4

kkkkkm

> 又はそれ以外の区切り文字列(-,|)で区切られています。

その場合でも時間の後または前に半角スペースがあるので(無ければ駄目ですが)

がむしゃらに頭を使わすに力技で

ただ
00:00 00 - It's Not All Truth
最後の00の前に「:」が無いのは

#1. 00:00 - Heldom - Hávamál
変更後も
「- Heldom - Hávamál」
で頭に「-」があるのは

の2点が不明だったのと
00:00の前に00を付けるのか後ろにつけるのか不明だったので
mTimeの前か後ろに追加してください。

Sub Test()
Dim buf As Variant
Dim i As Long, temp As String
Dim mTime As String, mStr As String

For i = 1 To 14
buf = Split(Trim(Cells(i, "A").Value), " ")
If InStr(buf(0), ".") > 0 Then
temp = Trim(Replace(Cells(i, "A"), buf(0), ""))
Else
temp = Cells(i, "A").Value
End If
buf = Split(Trim(temp), " ")
If InStr(buf(0), ":") > 0 Then
If InStr(buf(0), "(") > 0 Then
mTime = Mid(buf(0), InStr(buf(0), "(") + 1, InStr(buf(0), ")") - InStr(buf(0), "(") - 1)
Else
mTime = buf(0)
End If
mStr = Trim(Replace(temp, buf(0), ""))
If Left(mStr, 1) = "-" Then
mStr = Trim(Right(mStr, Len(mStr) - 1))
End If
Cells(i, "B").Value = mTime & " " & mStr
Else
If InStr(buf(UBound(buf)), "(") > 0 Then
mTime = Mid(buf(UBound(buf)), InStr(buf(UBound(buf)), "(") + 1, InStr(buf(UBound(buf)), ")") - InStr(buf(UBound(buf)), "(") - 1)
Else
mTime = buf(UBound(buf))
End If
mStr = Trim(Replace(temp, buf(UBound(buf)), ""))
If Right(mStr, 1) = "-" Or Right(mStr, 1) = "|" Then
mStr = Trim(Left(mStr, Len(mStr) - 1))
End If
Cells(i, "B").Value = mTime & " " & mStr
End If
Next

End Sub

お礼

kkkkkmさん、今回もお世話になります。

記載ミスや説明不足が多くお世話をお掛けします。

>00:00 00 - It's Not All Truth
>最後の00の前に「:」が無いのは

「：」が無いのはミス記入です。
　00:00:00 - It's Not All Truth　が正解です。

>変更後も
>「- Heldom - Hávamál」
>で頭に「-」があるのは

頭の「-」は、必要ありません。
　成形後は、下記になります。
　　　00:00:00 Heldom - Hávamál

>00:00の前に00を付けるのか後ろにつけるのか不明だったので

　　　00:00 は、mm:ss相当で
　　　　hh:mm:ssに成形するので「00」は、前に付加します。

>mTimeの前か後ろに追加してください。

2か所あるmTimeを下記のようにしましたが、
　Cells(i, "B").Value = "00:" & mTime & " " & mStr

表示がおかしい所があります。

添付画像の□で囲った箇所に注目ください。
（添付画像は、実際に即した数値に変更しました。）

コードの「00：」の記載方法が変でしょうか　？

補足

添付ミスで
　添付画像がありませんでした。

下記参照ください。

https://imgur.com/DQajzq6

回答No.3

SI299792

解説と画像を忘れました。
A1から下にデータがある前提です。
\ はコピペすると半角＼になります。

回答No.2

SI299792

グーグルスプレッドシートにはRegexExtractという便利な関数があります。
便利なのでユーザー定義関数で作りました。
使い方はグーグルスプレッドシートと全く同じです。従って、グーグルスプレッドシートならこの関数だけでできます。

B1: =RegexExtract(A1,"\d{1,2}(:\d{1,2}){1,2}")
下へコピペ。

Option Explicit
'
Function RegexExtract(Expression As String, Pattern As String) As String
　　Dim RegExp As Object
'
　　Set RegExp = CreateObject("VBScript.RegExp")
　　RegExp.Pattern = Pattern
　　RegexExtract = RegExp.Execute(Expression)(0)
End Function

回答No.1

tanakanono

正規表現で抽出できますよ。検索すれば出てきますのでここで詳細に書くより検索したほうが見やすいし理解しやすいと思いますので省略します。
例えば、
https://masalib.hatenablog.com/entry/2013/12/03/094907
https://excel-ubara.com/excelvba4/EXCEL232.html
http://excel-vba.jpn.org/section/12/StringOperation-VBA