收集电子邮件

Question

下面是我的代码（主要部分），用于收集电子邮件并将其保存在文本文件中。 但我的文本文件没有发生。我的Sub Email_valid例程出错了 有线索吗？

先谢谢，史蒂夫

Sub txtemail_EnterPressed

    Dim matcher1 As Matcher

Goodemail=False

matcher1 = Regex.Matcher("\w+@\w+\.\w+", txtemail)

    Do While Matcher1.Find
        Goodemail=True
    Loop 
    If Goodemail=False Then
        Msgbox("please input a valid email address", "Sorry")
    Else
        Msgbox("You will recieve an email shortly","Thank you")
        Email_valid
    End If

End Sub

Sub Email_valid

Writer.Initialize(File.OpenOutput(File.DirDefaultExternal, "Emai1s.txt",True))
Writer.WriteLine(txtemail)
Writer.Close 
txtemail.Text=""
Goodemail=False

End Sub

Answer 1

正如你所写：

Writer.WriteLine(txtemail)

将EditText的字符串表示写入文件。