帮帮我，关于打开文本文件的，很简单，立即给分

Question

读入每个字符,假如为x
dim x as string
y= chr(asc(x)+1)另外，请大家顺便回复我的一个帖子：
http://www.csdn.net/expert/topic/654/654811.xml?temp=.8152735
主题：  我自认VB水平不错，请大家给我估估价！

Answer 1

详细代码:
Option Explicit
Dim booStop As BooleanPrivate Sub Command1_Click()
    Const myFile As String = "c:\Test.txt"
    RichTextBox1.FileName = myFile
    Dim str As String
    Dim sss As String
    Dim ttt As String
    str = RichTextBox1.Text
    Dim i As Long
    For i = 1 To Len(str)
        If booStop = True Then
            Exit For
        End If
        sss = Mid(str, i, 1)
        ttt = ttt & Chr(Asc(sss) + 1)
    Next i
    RichTextBox2.Text = ttt
End SubPrivate Sub Command2_Click()
    booStop = True
End Sub

Answer 2

补充:将变形的文本还原:
Private Sub Command3_Click()
    Dim str As String
    Dim sss As String
    Dim ttt As String
    str = RichTextBox2.Text
    Dim i As Long
    For i = 1 To Len(str)
        If booStop = True Then
            Exit For
        End If
        sss = Mid(str, i, 1)
        ttt = ttt & Chr(Asc(sss) - 1)
    Next i
    RichTextBox3.Text = ttt
    
End Sub

Answer 3

http://www.csdn.net/expert/topic/623/623684.xml?temp=.4531214
主　　题：  请问如何对文本进行加密，解密！！ 
作　　者：  spirit00 (精灵)  
等　　级：    
信 誉 值：  97 
所属论坛：  Visual Basic 
问题点数：  50 
回复次数：  9 
发表时间：  2002-4-4 22:30:25 

Answer 4

http://www.csdn.net/expert/topic/534/534823.xml?temp=.9599268
主　　题：  用程序加密TXT文本 
http://www.csdn.net/expert/topic/534/534934.xml?temp=.5183985
主　　题：  用程序加密TXT文本---后续问题 请搜索 加密 有很多这样的例子