VB用一个字符串中某一位置的字符替换另一字符串中某一位置的字符该怎么做

发布网友发布时间：2022-04-24 14:54

共5个回答

热心网友时间：2023-10-17 10:59

Mid(String1, Start1, 1) = Mid(String2, Start2, 1)中start1是string1中要替换位置起始字符的位置，1为要替换的个数，start2是string2中将要替换到string1中的的字符的起始位置，个数与前面相同，也为1，例：
Dim a As String
a = "abcdefghijk"
Dim b As String
b = "123456789"
Mid(a, 3, 1) = Mid(b, 5, 1)
Text1 = a
运行结果为ab5defghijk

热心网友时间：2023-10-17 10:59

VB上输入 Mid()会出现提示：Mid(string, start as long, [length])
我们上课时讲的是：Mid是一个字符串函数，即它的返回值是一个字符串
Mid(x, n1, n2)意为从字符串x左起第n1个字符起取n2个字符
x即为string，start as long的意思是从左起第n1个字符取起，n1的类型为long

举个例子
Private Sub Form_Click()
a$ = 1234567890
b$ = Mid(a, 2, 4)
Print b
End Sub
显示的是2345

楼主你那个Mid(String1, Start1, 1) = Mid(String2, Start2, 1)………………理解错误了，网上的东西质量比较差

热心网友时间：2023-10-17 10:59

首先你要弄清是赋值还是比较。
你写的代码用于比较，如果是赋值的话用var = mid(a, i, n)的格式。
修改其中某段内容可用left(a,n) & "..." & right(a, m)

热心网友时间：2023-10-17 11:00

#include<stdio.h>
char a;
char b;
main()
{
printf("enter code a:/n");
scanf("%s%d");
a="%s%d";
printf("enter code to be include:/n");
scanf("%s%d");
b="%s%d";
a+b;
printf("the code is:%s%d/n")
}追问晕死，我是问VB，不是C……

热心网友时间：2023-10-17 11:01

replace

例
dim s as string
s="abcde"
replace(s,"abc","aaa")
那么s就变成了aaade

VB用一个字符串中某一位置的字符替换另一字符串中某一位置的字符该怎么...

vb 的查找并替换功能

Replace函数的返回值是一个字符串，但是，其中从start所指定的位置开始，到expression字符串的结尾处的一段子字符串已经发生过替换动作。并不是原字符串从头到尾的一个复制。实例代码：将'vb 的查找并替换功能'中'并'替换为'和'：Private Sub Command1_Click() Dim s As String Dim s1 As St...

VB 文本指定行字符串的替代

file.close createobject("wscript.shell").run "notepad.exe 1.txt"

VB的替代问题

如果只替换第一个的话，你直接用replace(text1,"X","Y",,1)后面的参数就是替换几次，如果替换最后一个的话，inend=instrrev(text1.text,"X")找到最后一个“X”在字符串中的位置，然后再替换 replace(text1,"X","Y",inend)

vb查询字符串并替换

查找字符串的函数是 instr，替换字符串的函数是replace，用法：instr(n , S1 , S2) 在字符串S1中，从左边第n个字符向后搜索S2第一次出现的位置，例如 i = instr ( 3, "abcbcbc", "b" )，此时 i = 4 replace（s,s1,s2) 在字符串s中搜索s1，如果搜索到就将s1替换成s2，例如 replace("...

VB有关字符串替换的代码,在线等。

Function：'这是一个由字符串里取代全部的某字符串功能 Public Function AllReStr(DT As String, DX As String, DY As String) As String If Len(DT) = 0 Then Exit Function Do W = InStr(DT, DX)If W = 0 Then Exit Do DT = Left(DT, W - 1) & DY & Right(DT, Len(DT) -...

vb语言中字符串指定位置替换函数?

代码如下：Dim a As Stringa = "0101010"Mid(a, 3, 1) = "1"Print a显示结果就是：0111010

VB怎样替换同一字符串中的两组字符

Private Sub Command1_Click() '文本互换按钮Dim s As Strings = Text1.TextText1.Text = Text2.TextText2.Text = sEnd SubPrivate Sub Command1_Click() '公式变化按钮Dim i As Integeri = InStr(Text3.Text, "*")Text3.Text = Right(Text3.Text, Len(Text3.Text) - i) & "*" &...

VB代码(将字符串中的字符s替换为字符t)

Str0 = "12s345s678s9s"For i = 1 To Len(Str0)If Mid(Str0, i, 1) = "s" Then str1 = str1 & "t"Else str1 = str1 & Mid(Str0, i, 1)End If Next MsgBox str1

VB 怎么对Text内容进行替换查找操作

在VB中,查找一个字符串是否出现在另一个字符串中,可以使用InStr函数,如果它返回一个大于0的值,则表示找到了相应的字符串.Instr函数有两种用法,一种是指定开始查找位置的,一种则不带.不带查找位置:InStr("Pack a String.", "a") '返回值:2意为"Pack a String."中第2个字符就是找查找的字符...

取得字符串中某个位置的字符查找字符在字符串中的位置字符串包含另一个字符串 vb怎么表示字符串的第n个 VB怎么判断字符串是否相等字符串出现的位置 vb字符串怎么比较大小 vb中字符串什么意思 VB中如何拼接字符串