Question

对于我在计算机上的受控评估，我被要求完成以下内容：

“程序应该能够将文件压缩为单词列表以及重新创建原始文件的位置列表。“

我编写的代码将从文本框中获取字符串，然后将其压缩为.txt文件。例如，当我输入句子时：

“对于所有人而言，所指的那些与所指的那个不同”，.txt文件现在包含（当我按下按钮时）：

1 2 3 4 5 6 6 6 6 7 6 6 8 9 2 1 0 1 1 1 2 6 7 6 6

it, is, true, for, all, that, which, refers, to, is, not, the, same,

正如您所看到的，这些单词都是唯一的，当找到重复的单词时，它只会重复它所处的位置。

我如何将此文本文件解压缩回Listbox / Textbox / .txt文件以显示重复的单词并出现“对于所有那些所指的不是与“

”相同

到目前为止我得到了什么：

Dim outputIndex As String = Nothing
Dim outputWord As String = Nothing

For Each Word As String In sentenceToSearchThrough
      outputIndex &= (dictionary.IndexOf(Word) + 1).ToString 
Next 
      outputIndex = outputIndex.Substring(0, outputIndex.Length - 2)

Dim compressedFile As System.IO.StreamWriter
compressedFile = My.Computer.FileSystem.OpenTextFileWriter("test.txt", True)
compressedFile.WriteLine(outputIndex)

For Each Word In dictionary
    compressedFile.Write(Word & " ")
Next
compressedFile.Close()



Dim decompressedFile As System.IO.StreamReader

decompressedFile = My.Computer.FileSystem.OpenTextFileReader("test.txt")

Dim reader As String
reader = decompressedFile.ReadLine()

Dim decompressedFile2 As System.IO.StreamReader
decompressedFile2 = My.Computer.FileSystem.OpenTextFileReader("test.txt")
Dim reader2 As String
reader2 = decompressedFile.ReadLine()
MsgBox(reader & reader2)

Visual Basic - 解压缩文本

0 个答案: