VB 用空格或逗号分隔文本框中的字符串

dim i as integer, j as integer, l as integer, s as string, s1 as string, s2 as string

dim b() as string

j = -1

s = : l = len(s)

for i = 1 to l

s1 = mid(s, i, 1)

if s1 = " " or s1 = "," or s1 = ";" then '分隔符有空格、逗号、分号。

if s2 <>"" then

j = j + 1

redim preserve b(j) '下标从 0 开始。

b(j) = s2

s2 = ""

end if

elses2 = s2 & s1

end if

next i

if s2 <>"" then

j = j + 1

redim preserve b(j)

b(j) = s2

end if

就是这样。

private sub command1_click()s = text1

s = replace(s, ",", " ") '首先，将所有逗号转换为空键，末尾的引号中有一个空格。

a = split(s) 'Split，a 是要拆分的数组。

end sub

首先自定义函数。

然后打电话。 function ntiqi(str)

i = len(str)

for j = 1 to i

temp = mid(str,j,1)

if temp like [0-9] thenntiqi = ntiqi & temp

end if

nextif ntiqi <>"" then ntiqi = ntiqi * 1 '根据需要转换为数字格式，不使用时将其删除。

end function

arr=split(,vbcrlf)

for i = 0 to ubound(arr)s=arr(i)

for j = 1 to len(s)

x=mid(s,j,1)

if isnumeric( x)=true theny=y & x

elseexit for

end if

nexty '这个 y 变量的内容是你想用 y= 执行的操作""

next

passwordchar 属性。

返回或设置一个值，该值指示是键入的字符还是占位符要在文本框控件中显示; 返回或设置为用作占位符。

语法 [= value]。

passwordchar 属性的语法包含以下部分：

部分说明。

对象表达式，其值是“应用于”列表中的对象。

value 是指定占位符的字符串表达式。

说明应使用此属性在对话框中创建密码域。 虽然可以使用任何字符，但大多数基于 Windows 的应用程序都使用星号 （*chr（42））。

此属性不影响 text 属性; 文本完全包含您键入的内容或设置的内容。 将 passwordchar 设置为长度为 0 （""） （默认） 以显示实际文本。

可以将此属性分配给任何字符串，但只有第一个字符有效，所有其他字符都将被忽略。

注意 如果 multiline 属性设置为 true，则设置 passwordchar 属性将不起作用。

PasswordChar 属性。

此示例演示 passwordchar 属性如何影响文本框控件显示文本的方式。 若要尝试此操作，请将以下内容粘贴到包含文本框的窗体的声明部分，然后按 F5 并单击窗体。 每次单击表单时，文本将在星号（*密码和普通文本）之间转换。

private sub form_click ()

if = "" then

elseend if

end sub

在 textbox 属性设置中，有一个 passwordchar 属性，在此字段中填写 * 字符。

'教你一个技巧（4）。

因为它是换行符，所以：

这是文本框控件。

"字符串" &

这是 listbox1 控件。

字符串" &

= vbcrlf & vbcrlf & " " & "upjd" & " "

vbcrlf 是换行符" "这是一个空间！

如果字符串很长，建议使用 ：stringbuilder 类进行追加，可以追加数百万次，不会造成太多的系统资源开销！

首先，文本框中必须有一个属性，该属性需要设置为多行并支持回车符。

其次，我记得直接使用换行符。

n 个空格，你写一个循环，并将其添加到每个循环中" "就是这样。

为了提供一个想法，你可以考虑使用 split 函数将其分解成一个数组，private sub command1 click（）dim str1 作为字符串

dim str2 as string

dim v as variant

str1 = "1235,12,23,34,123,21,56,74,1232"

v = split(str1, ",")

str2 = 12

for i = lbound(v) to ubound(v)if v(i) = str2 then

msgbox v(i)

end if

next i

end sub

什么属性??? 这是否意味着文本框中显示的 text1？

如果是这样，您可以单击文本框，然后在右侧的属性窗口中找到 text 属性，然后删除它后面的下一个内容。

它也可以设置为使用**运行，例如：

private sub form_load()""此处的 text1 是文本框控件。

end sub

在设计阶段双击窗体弹出窗口，并添加以下内容：

private sub form_load()=

end sub

单击文本框，右键单击该属性，并将 text 属性的值设置为空白。 我不知道我是否在谈论你想要的答案。