VB.net 字符串的问题

Private Function xxx(ByVal str As String)

鲁山网站建设公司创新互联公司,鲁山网站设计制作，有大型网站制作公司丰富经验。已为鲁山1000+提供企业网站建设服务。企业网站搭建\外贸网站建设要多少钱，请找那个售后服务好的鲁山做网站的公司定做！

str = Replace(str, vbTab, "")'替换tab

str = Replace(str, " ", "")'替换空格

str = Replace(str, " ", "")'替换全角空格，如果不好用，可能是百度转换过了，你自己打一个全角空格作为第二个参数

xxx = str

End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox1.Text = xxx(TextBox1.Text)

End Sub

---------------------------------

replace(要进行替换的字符串，查找的字符串，被替换成的字符串)

例：

replace("abcd","bc","123")

过程：

将"abcd"中的"bc"，全部替换成"123"

结果："a123d"

vb.net如何运算一个字符串

调用 脚本解析引擎，

textbox2.text=Eval(textbox1.text).ToString()

Function Eval(ByVal Expressions As String) As Double

Dim Mssc = CreateObject("MSScriptControl.ScriptControl")

Mssc.Language = "vbscript"

Return CDbl( Mssc.Eval(Expressions))

End Function

不喜欢上面提示的警告的话

textbox2.text=EvalString(textbox1.text)

Function EvalString(ByVal Expressions As String) As String

dim oType = System.Type.GetTypeFromProgID("MSScriptControl.ScriptControl")

Dim o = System.Activator.CreateInstance(oType)

oType.InvokeMember("Language", System.Reflection.BindingFlags.SetProperty , Nothing, o,New Object(){ "vbscript"})

Return oType.InvokeMember("Eval", System.Reflection.BindingFlags.InvokeMethod, Nothing, o, New Object(){Expressions}).ToString()

End Function

Eval 在VB中使用，刚找到的_vb吧_百度贴吧

vb.net字符串操作

a="@1991@1205@844@3276@1104@747@1069@0.9@4@3@104810571073

"

a=Replace(a,"@",",")

a=Replace(a,"",",")

dim b()

b=split(a,",")

vb中字符串能进行相加减吗

可以。字符串的相加为字符串的连接。例如

"a"+"b"="ab".但是字符串不能相减

你给的算式结果为

.04

因为a赋值为12数据类型为数值型。他只是把结果变成了STR型的数据。

vb 字符串相加减

这个问题用vb.net比较简单.......

在text1里输入12

85

74

69

73

91

65

在text2里输入第一个数+第二个数

我这个方法的前提是：

text1里的每个数必需由空格分隔

text2里的文本要用+分隔

----------------------------------------------------------

dim

t1()

as

string

dim

t2()

as

string

dim

t1l,

i

as

integer

dim

temp

dim

r

as

integer,

rs

as

string

'用split函数分隔用户的输入

t1

=

split(text1.text,

"

")

t2

=

split(text2.text,

"+")

'获取数组t1中一共有几个元素

for

each

temp

in

t1

t1l

=

t1l

+

1

next

'直接开始相加

for

each

temp

in

t2

r

=

r

+

t1(i)

rs

=

rs

t1(i)

"+"

i

=

i

+

1

next

'显示结果

rs

=

left(rs,

len(rs)

-

1)

rs

=

rs

"="

r

text3.text

=

rs

----------------------------------------------------------

代码就是这样，缺点就是不是说在text2中输入第一个数+第二个数才可以加，输入a+b也可以加

我想知道vb.net中的时间怎么做相加和相减，谢谢

DateAdd函数 返回

返回包含一个日期的 Variant (Date)，这一日期还加上了一段时间间隔。

语法

DateAdd(interval, number, date)

DateAdd 函数语法中有下列命名参数：

部分 描述

interval 必要。字符串表达式，是所要加上去的时间间隔。

number 必要。数值表达式，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。

date 必要。Variant (Date) 或表示日期的文字，这一日期还加上了时间间隔。

DateDiff函数 返回

返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目。

语法

DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])

DateDiff 函数语法中有下列命名参数：

部分 描述

interval 必要。字符串表达式，表示用来计算date1 和 date2 的时间差的时间间隔

Date1□date2 必要；Variant (Date)。计算中要用到的两个日期。

Firstdayofweek 可选。指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。

firstweekofyear 可选。指定一年的第一周的常数。如果未予指定，则以包含 1 月 1 日的星期为第一周。

文章标题：vb.net字符串相减,c字符串相减
本文地址：http://kswjz.com/article/hdidii.html