ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2024年3月28日(木) 18:15

全ての表示時間は UTC+09:00 です




新しいトピックを投稿する  トピックへ返信する  [ 7 件の記事 ] 
作成者 メッセージ
 記事の件名: Joinとsplit
投稿記事Posted: 2018年9月13日(木) 02:32 
PerlのようにCSVやWebを扱う際に便利なJoinやSplitがありますでしょうか?

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


通報する
ページトップ
   
 記事の件名: Re: Joinとsplit
投稿記事Posted: 2018年9月27日(木) 21:32 
ありません


通報する
ページトップ
   
 記事の件名: Re: Joinとsplit
投稿記事Posted: 2018年10月02日(火) 11:35 
オフライン

登録日時: 2006年2月05日(日) 17:10
記事: 215
お住まい: 東京都
Joinとsplitともに現在のABにはありません。
ご自身で作成されたほうがよいかもしれません。
ちなみにsplitについては類似した機能を実践コードモジュールで水波形さんが投稿されています。
念のためこちらを確認してみて下さい。

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


通報する
ページトップ
 記事の件名: Re: Joinとsplit
投稿記事Posted: 2018年12月18日(火) 21:24 
見つけました!
コード:
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



通報する
ページトップ
   
 記事の件名: Re: Joinとsplit
投稿記事Posted: 2018年12月18日(火) 21:31 
最後のresultはresultです


通報する
ページトップ
   
 記事の件名: Re: Joinとsplit
投稿記事Posted: 2018年12月18日(火) 21:34 
何故かかっこが消えます
result i


通報する
ページトップ
   
 記事の件名: Re: Joinとsplit
投稿記事Posted: 2018年12月18日(火) 23:10 
度々申し訳ないです
最後のfor はこれで動きます
コード:
foreach ss in result
	MessageBox(NULL,ss,"",MB_OK)
next





通報する
ページトップ
   
期間内表示:  ソート  
新しいトピックを投稿する  トピックへ返信する  [ 7 件の記事 ] 

全ての表示時間は UTC+09:00 です


オンラインデータ

このフォーラムを閲覧中のユーザー: Ahrefs [Bot] & ゲスト[23人]


トピック投稿:  可
返信投稿:  可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

検索:
ページ移動:  
cron
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by ocean