ab.com コミュニティ
https://www.activebasic.com/forum/

Joinとsplit
https://www.activebasic.com/forum/viewtopic.php?f=1&t=4625
ページ 11

作成者:  ottan3104 [ 2018年9月13日(木) 02:32 ]
記事の件名:  Joinとsplit

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

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

作成者:  HSABP [ 2018年9月27日(木) 21:32 ]
記事の件名:  Re: Joinとsplit

ありません

作成者:  たかせ [ 2018年10月02日(火) 11:35 ]
記事の件名:  Re: Joinとsplit

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

よろしくお願いいたします。

作成者:  質問者A [ 2018年12月18日(火) 21:24 ]
記事の件名:  Re: Joinとsplit

見つけました!
コード:
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 [ 2018年12月18日(火) 21:31 ]
記事の件名:  Re: Joinとsplit

最後のresultはresultです

作成者:  質問者A [ 2018年12月18日(火) 21:34 ]
記事の件名:  Re: Joinとsplit

何故かかっこが消えます
result i

作成者:  質問者A [ 2018年12月18日(火) 23:10 ]
記事の件名:  Re: Joinとsplit

度々申し訳ないです
最後のfor はこれで動きます
コード:
foreach ss in result
	MessageBox(NULL,ss,"",MB_OK)
next




ページ 11 All times are UTC+09:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/