Joinとsplit

ActiveBasicでのプログラミングでわからないこと、困ったことなどがあったら、ここで質問してみましょう(質問を行う場合は、過去ログやWeb上であらかじめ問題を整理するようにしましょう☆)。
返信する
メッセージ
作成者
ottan3104

Joinとsplit

#1 投稿記事 by ottan3104 »

PerlのようにCSVやWebを扱う際に便利なJoinやSplitがありますでしょうか?

ヘルプページには無かったようなのですが。
HSABP

Re: Joinとsplit

#2 投稿記事 by HSABP »

ありません
たかせ
記事: 215
登録日時: 2006年2月05日(日) 17:10
お住まい: 東京都

Re: Joinとsplit

#3 投稿記事 by たかせ »

Joinとsplitともに現在のABにはありません。
ご自身で作成されたほうがよいかもしれません。
ちなみにsplitについては類似した機能を実践コードモジュールで水波形さんが投稿されています。
念のためこちらを確認してみて下さい。

よろしくお願いいたします。
質問者A

Re: Joinとsplit

#4 投稿記事 by 質問者A »

見つけました!

コード: 全て選択


imports System
imports System.Collections.Generic

Dim s As String

Dim list As List<String>
list.Add("ok")
list.Add("okです")
list.Add("okですってばあ")
s = ","
s = String.Join(s,list)
MessageBox(NULL,s,"正解",MB_OK)


s = "あいう,えお"
Dim deli As List<String>
deli.Add(",")
Dim result As List<String>
result = s.Split(deli)

Dim n As Long,i As Long
n = result.Count()
for i = 0 to n - 1
	MessageBox(NULL,result,"結果",MB_OK)
next i

質問者A

Re: Joinとsplit

#5 投稿記事 by 質問者A »

最後のresultはresultです
質問者A

Re: Joinとsplit

#6 投稿記事 by 質問者A »

何故かかっこが消えます
result i
質問者A

Re: Joinとsplit

#7 投稿記事 by 質問者A »

度々申し訳ないです
最後のfor はこれで動きます

コード: 全て選択


foreach ss in result
	MessageBox(NULL,ss,"",MB_OK)
next



返信する