UC知道vb固定值转换问题
来源：百度知道 编辑：UC知道 时间：2024/06/26 02:51:39
我想让vb读取文件元音字母自动转换,转换模式如A - E,E-I,I - O,O-U, U -A. 然后把转换的结果输入到textbox里面
左面是输入 数据 右边是输出数据 按排读数据
allowed ELLUWID
consist CUNSOST
debates DIBETIS
declare DICLERI
decoded DICUDID
initial ONOTOEL
numbers NAMBIRS
options UPTOUNS
program PRUGREM
seconds SICUNDS
--------------------------------------------------------
下面是我写的一段程序有什么需要改的
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Otp1.Multiline = True
Otp1.ReadOnly = True
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sr As IO.StreamReader = IO.File.OpenText("Data.txt")
Dim ch As Char
Dim sum As String = ""
Do While sr.Peek <> -1
ch = Chr(sr.Read)
Select Case c
左面是输入 数据 右边是输出数据 按排读数据
allowed ELLUWID
consist CUNSOST
debates DIBETIS
declare DICLERI
decoded DICUDID
initial ONOTOEL
numbers NAMBIRS
options UPTOUNS
program PRUGREM
seconds SICUNDS
--------------------------------------------------------
下面是我写的一段程序有什么需要改的
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Otp1.Multiline = True
Otp1.ReadOnly = True
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sr As IO.StreamReader = IO.File.OpenText("Data.txt")
Dim ch As Char
Dim sum As String = ""
Do While sr.Peek <> -1
ch = Chr(sr.Read)
Select Case c
这样转代码太复杂了，干吗不用Ucase函数转成大写和replace函数替换，这样省了很多行代码，运算速度也会提高，代码也清晰点
没装VB，没得调试，这样吧，简单写一下
代码为 ch=Ucase(ch) '全部转成大写
ch=replace(ch,"A","E")
ch=replace(ch,"E","I")
ch=replace(ch,"I","O")
ch=replace(ch,"O","U")
ch=replace(ch,"U","A") '替换的
可以一个一个字符替换，或者直接全部读取再替换