ab.com コミュニティ https://www.activebasic.com/forum/ |
|
Joinとsplit https://www.activebasic.com/forum/viewtopic.php?t=4625 |
ページ 1 / 1 |
作成者: | 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 |
ページ 1 / 1 | 全ての表示時間は UTC+09:00 です |
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/ |