VB通过换行符split字符串

Posted 2023-04-15

我先遇到一个问题，就是在一个文本框中有一堆字符串，排列方式如：--------------------------------------LVTDB12A77B001683LVVDA11B14D064217LVVDA11B54D062650LVVDA11B94D062652LVVDB12A24D065198------------------------------------是这样5条数据换行的在一个文本框中，我怎么才能将这个文本框中的5条数据通过换行符分别截取出来成为：LVTDB12A77B001683，LVVDA11B14D064217，LVVDA11B54D062650，LVVDA11B94D062652，LVVDB12A24D065198这样5条单独的字符串！求大侠指点哦！最好了写出了代码例子！谢谢啦！

dim s,v 'v用来保存用split分割后生成的字符串数组，即是你要的5条单独字符串
s="：--------------------------------------LVTDB12A77B001683LVVDA11B14D064217LVVDA11B54D062650LVVDA11B94D062652LVVDB12A24D065198------------------------------------"
s=replace(s,"-","")'去掉-
s=replace(s,"LV",",LV",3)'通过字符串及你的要求，可发现是以LV开头的。
v=split(s,",")'这个变量v即是你要的单独字符串。
'如用以下方式引用
for i=lbound(v) to ubound(v)
msgbox v(i)
next 参考技术A 如果有换行，就使用vbcrlf换行字符进行分割，split(t,vbcrlf） 参考技术B string sqla = "FROM dbo.tblorders a WITH(NOLOCK)";string[] splitArray = new string[1];splitArray[0] = sqla;string sqlddl = sql.Split(splitArray,StringSplitOptions.RemoveEmptyEntries)[0]; 参考技术C dim v() as string
v()=split (text1.text,vbcrlf)
for u=0 to ubound(v)
msgbox v(u)
next 参考技术D Split函数

返回一个下标从零开始的一维数组，它包含指定数目的子字符串。
Split(expression[, delimiter[, count[, compare]]])

Split函数语法有如下几部分：
expression 必需的。包含子字符串和分隔符的字符串表达式 。如果expression是一个长度为零的字符串("")，Split则返回一个空数组，即没有元素和数据的数组。
delimiter 可选的。用于标识子字符串边界的字符串字符。如果忽略，则使用空格字符(" ")作为分隔符。如果delimiter是一个长度为零的字符串，则返回的数组仅包含一个元素，即完整的 expression字符串。
count 可选的。要返回的子字符串数，–1表示返回所有的子字符串。
compare 可选的。数字值，表示判别子字符串时使用的比较方式。关于其值，请参阅“设置值”部分。

实例
dim a() as string
s=text1.text
a=split(s,vbcrlf)
'你要的字符串就在数组a里面
'显示第一个
msgbox a(0)本回答被提问者采纳

Python中split()方法的使用

Python split() 方法通过指定分隔符对字符串进行分割并返回一个列表，默认分隔符为空字符，包括空格，换行（ ）,制表符（ ）等

• str.split() 默认以空格，换行( )，制表符 分割
• str.split(‘字符串‘)：以字符串为分割
• str.split(‘字符串‘,2)分割以前2次出现的字符串为分割