質問編集履歴
3
つき
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -53,4 +53,11 @@
|
|
|
53
53
|
と考えていますが、これを実行すると必要以上の文字が取得されてしまいます。
|
|
54
54
|
考え方がおかしいのでしょうか？
|
|
55
55
|
|
|
56
|
-
よろしくお願いします。
|
|
56
|
+
よろしくお願いします。
|
|
57
|
+
|
|
58
|
+
|
|
59
|
+
|
|
60
|
+
|
|
61
|
+
追記
|
|
62
|
+
staff = MID(line3, InStrRev(line3, " ") + 1)
|
|
63
|
+
でうまくできました。ありがとうございました。
|
2
henshu
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -38,7 +38,7 @@
|
|
|
38
38
|
```
|
|
39
39
|
|
|
40
40
|
2行目のもともとの文字列は
|
|
41
|
-
東京 000002 2018/08/01 山田太郎
|
|
41
|
+
東京 000002 2018/08/01 山田 太郎
|
|
42
42
|
といった具合です。
|
|
43
43
|
わかりづらいので半角スペースを*で表現すると
|
|
44
44
|
東京****000002*****2018/08/01*******山田＊太郎***
|
1
henshuu
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -28,7 +28,7 @@
|
|
|
28
28
|
Dim namae As String
|
|
29
29
|
line2 = RTrim(line2)
|
|
30
30
|
staff = Right(line2, InStrRev(line2, " ") - 1)
|
|
31
|
-
|
|
31
|
+
namae = Trim(staff)
|
|
32
32
|
|
|
33
33
|
Debug.Print , namae;
|
|
34
34
|
|