サンプルコード

ここを編集

'連続した空白を一つにまとめる
Do While InStr(sTrgtLine, "  ")
	sTrgtLine = Replace$(sTrgtLine, "  ", " ")
Loop
sTrgtLine = Trim$(sTrgtLine)
asSplitLine = Split(sTrgtLine, " ")
 

ここを編集