掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
文字列の分割 (ID：147818)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
正規表現を用いた全角、半角の分割です。参考にしてみて下さい。 ただしこれは半角文字以外は全角と判断しています。 Imports System.Text.RegularExpressions Dim Han As New Regex("^((?<zen1>.*?)(?<han>[\x20-\x7F]+))*(?<zen2>.*)$", RegexOptions.Compiled) Dim m = Han.Match(TextBox1.Text) If m.Success Then Dim capzen1 = m.Groups("zen1").Captures Dim caphan = m.Groups("han").Captures Dim grpzen2 = m.Groups("zen2") ListBox1.Items.Clear() For idx = 0 To capzen1.Count - 1 ListBox1.Items.Add(capzen1(idx).Value) ListBox1.Items.Add(caphan(idx).Value) Next ListBox1.Items.Add(grpzen2.Value) End If
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.