VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2004/12/18(Sat) 14:46 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^4: 文字列の切り出し・・・ |
Replace 関数で２個のスペースを１個に置き換えるを繰り返せば、後は、Split で
取り出せるし普通のスペース区切りとして扱えます。
スペースをカンマに置き換えてもいいし、一気読み込んでから処理しても
１行毎に処理してもできるかと思います。
Private Sub Command1_Click()
Dim myStr As String
Dim myDat As Variant
Dim i As Long
myStr = "D 0 1 01A5-1d0-01 Rpdc 53 85 3.20 1 1 53 85 1 812 0 13 "
While InStr(myStr, " ") > 0
myStr = Replace(myStr, " ", " ")
Wend
myDat = Split(myStr, " ")
For i = LBound(myDat) To UBound(myDat)
Debug.Print myDat(i)
Next i
End Sub
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）