ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2018年12月17日(月) 17:18

All times are UTC+09:00




トピックに返信する
ユーザー名:
件名:
メッセージ本文:
こちらにメッセージをご入力ください。60000 字まで入力できます。 

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

トピックのレビュー - Split関数(指定文字で文を分ける)
作成者 メッセージ
  記事の件名:  Split関数(指定文字で文を分ける)  引用付きで返信する
二番煎じでしたらすいません。
ActiveBasic(Ver.4.24.00)にSplit関数がなかったので作ってみました。
よく分からなかったので、配列の最後に

Ex"\0"

を突っ込んでおきました。
これが来たらデータ終了です。

■仕様説明
(①戻り値) = Split(②引数,③引数)
①String型のポインタ(*String)が返ります
②分解したい文章データを指定(String型)
③区切り文字を指定(String型)

①で返ってきたデータが配列になっているので、後はそれをお使いください。
例は下。
コード:
/* Split関数 */
Function Split(Text As String,Delimiter As String) As *String
	Dim DataNum As Long
	Dim StringData As *String

	Dim re As Long
	Dim re_b As Long
	Dim s As String

	DataNum = 0
	StringData = NULL

	Do
		re = re + 1
		re_b = re

		'区切り文字の検索
		re = InStr(re_b, Text, Delimiter)

		'区切り文字までの抜き出し
		If re <> 0 Then
			s = Mid$(Text,re_b,re-re_b)
		Else
			s = Mid$(Text,re_b)
		End If

		'動的配列に格納
		If StringData = NULL Then
			StringData = malloc(SizeOf(String) * 1)
		Else
			StringData = realloc(StringData,SizeOf(String) * (DataNum+1))
		End If
		
		StringData[DataNum] = s

		DataNum = DataNum + 1
	Loop Until re = 0

	'末端にNULL文字を入れる
	StringData = realloc(StringData,SizeOf(String) * (DataNum))
	StringData[DataNum] = Ex"\0"

	'値を返す
	Split = StringData

End Function

一応サンプルも。
全コピペで動きます。
[新規作成] > [BASICプログラム]
コード:
Dim n As Long
Dim Text As *String
Text = Split("aaa,bbb,ccc,ddd",",")

Do
	MessageBox(0,Text[n],"Text["+Str$(n)+"]",0)
	n = n + 1
	If Text[n] = Ex"\0" Then
		Exit Do
	End If
Loop






/* Split関数 */
Function Split(Text As String,Delimiter As String) As *String
	Dim DataNum As Long
	Dim StringData As *String

	Dim re As Long
	Dim re_b As Long
	Dim s As String

	DataNum = 0
	StringData = NULL

	Do
		re = re + 1
		re_b = re

		'区切り文字の検索
		re = InStr(re_b, Text, Delimiter)

		'区切り文字までの抜き出し
		If re <> 0 Then
			s = Mid$(Text,re_b,re-re_b)
		Else
			s = Mid$(Text,re_b)
		End If

		'動的配列に格納
		If StringData = NULL Then
			StringData = malloc(SizeOf(String) * 1)
		Else
			StringData = realloc(StringData,SizeOf(String) * (DataNum+1))
		End If
		
		StringData[DataNum] = s

		DataNum = DataNum + 1
	Loop Until re = 0

	'末端にNULL文字を入れる
	StringData = realloc(StringData,SizeOf(String) * (DataNum))
	StringData[DataNum] = Ex"\0"

	'値を返す
	Split = StringData

End Function
何か動作の改善点などありましたら、レスを頂ければ嬉しいです。

後、コードパッドなんかにも上げてみたり。
インデントとかしっかりしてるので
http://codepad.org/ZvSEJc9L
投稿記事 Posted: 2014年3月14日(金) 03:19

All times are UTC+09:00


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