Question

我想在VB中创建一个文本编辑器。我的文本编辑器已经可以读写文本文件，但我想要比这更好的东西。当我在.exe程序上拖放.txt文件时，我的程序会读取.txt文件的上下文。但问题是我希望[Form1.Text]成为我删除的文件的路径。例如，当您使用Wordpad打开文件时，您可以在顶部看到该文件的名称： TextFile.txt - Wordpad

这就是代码：

Private Sub ReadingText(sender As Object, e As EventArgs) Handles Me.Load
    Dim arguments As String = Command()
    If arguments = String.Empty Then
        RichTextBox1.Text += vbCrLf & vbCrLf & vbCrLf
    Else
        Dim tempstr As String = arguments.Replace("""", "")
        Dim SR As New System.IO.StreamReader(tempstr)
        RichTextBox1.Text = vbCrLf & SR.ReadToEnd
        Try
            SR.Close()
        Catch ex As Exception
            RichTextBox1.Text += ex.ToString
        End Try
    End If
End Sub

你可以帮忙吗？

Answer 1

您已经在tempstr变量中获得了文件名，只需使用它：

    Dim tempstr As String = arguments.Replace("""", "")
    Me.Text = tempstr & " - YourTextEditorNameHere"    
    Dim SR As New System.IO.StreamReader(tempstr)

如果您不想要完整路径，请使用Path.GetFileName()：

    Dim tempstr As String = arguments.Replace("""", "")
    Me.Text = System.IO.Path.GetFileName(tempstr) & " - YourTextEditorNameHere"    
    Dim SR As New System.IO.StreamReader(tempstr)

如果您不想要扩展程序，请使用Path.GetFileNameWithoutExtension()：

    Dim tempstr As String = arguments.Replace("""", "")
    Me.Text = System.IO.Path.GetFileNameWithoutExtension(tempstr) & " - YourTextEditorNameHere"    
    Dim SR As New System.IO.StreamReader(tempstr)

设置表单的名称等于拖放文件标题vb

1 个答案: