ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2024年3月29日(金) 02:24

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




返信する
ユーザー名:
件名:
メッセージ本文:
メッセージを入力してください。60000 字まで入力できます。 

フォントサイズ:
フォントカラー
オプション:
BBCode: ON
[img]: ON
[flash]: OFF
[url]: ON
スマイリー: OFF
BBCode を無効にする
URL を自動的にパースしない
クイズ
お手数ですがカタカナで「エービー」と4文字を入力してください。:
答えを正確に入力してください。答えられるかどうかでスパムボットか否かを判定します。
   

トピックのレビュー - Joinとsplit
作成者 メッセージ
  記事の件名:  Re: Joinとsplit  引用付きで返信する
度々申し訳ないです
最後のfor はこれで動きます
コード:
foreach ss in result
	MessageBox(NULL,ss,"",MB_OK)
next



投稿記事 Posted: 2018年12月18日(火) 23:10
  記事の件名:  Re: Joinとsplit  引用付きで返信する
何故かかっこが消えます
result i
投稿記事 Posted: 2018年12月18日(火) 21:34
  記事の件名:  Re: Joinとsplit  引用付きで返信する
最後のresultはresultです
投稿記事 Posted: 2018年12月18日(火) 21:31
  記事の件名:  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

投稿記事 Posted: 2018年12月18日(火) 21:24
  記事の件名:  Re: Joinとsplit  引用付きで返信する
Joinとsplitともに現在のABにはありません。
ご自身で作成されたほうがよいかもしれません。
ちなみにsplitについては類似した機能を実践コードモジュールで水波形さんが投稿されています。
念のためこちらを確認してみて下さい。

よろしくお願いいたします。
投稿記事 Posted: 2018年10月02日(火) 11:35
  記事の件名:  Re: Joinとsplit  引用付きで返信する
ありません
投稿記事 Posted: 2018年9月27日(木) 21:32
  記事の件名:  Joinとsplit  引用付きで返信する
PerlのようにCSVやWebを扱う際に便利なJoinやSplitがありますでしょうか?

ヘルプページには無かったようなのですが。
投稿記事 Posted: 2018年9月13日(木) 02:32

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


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