| |
▼ｋ.ぬま：
自分で以下のところまでコードを作りました。
\を入れなければ順調に動きます。ただし、何の変化もありませんが。
\を入れられない規則が分かりません。
正しいコードにしたいのですけど、分かる方、どうぞご指導をお願いします。
上半分は、文字列の右側部分の英数字を取り除き、
下半分は、文字列の左側部分の和字を取り除くことを考えています。\wや\はだめと言うことみたいです。
str1 = ""
str = Selection.Text
n = InStr(str, \w) ’←コンパイルエラーで赤くなります、\が原因
Do Until n = 0
str1 = str1 & Left(str, n - 1)
str = Mid(str, n + 1)
n = InStr(str, \w)’←コンパイルエラーで赤くなります、\が原因
Loop
MsgBox "Yougoの取出し"
'〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
str2 = ""
str = Selection.Text
n = InStr(str1, ￥D) ’←コンパイルエラーで赤くなります、\が原因 Do Until n = 0
str2 = str2 & Right(str, n - 1)
str = Mid(str, n + 1)
n = InStr(str, ￥D) ’←コンパイルエラーで赤くなります、\が原因
Loop
MsgBox "Fugouの取出し"
|
|
![[未読]](./data/word/image/read_icon.gif){kind=icon}
- 08/6/25(水) 21:14 -
