Функция не удаляет строку из основного текста

Привет, это продолжение моего вопроса Найдите строку и переместите ее вверх документа

Код делает почти то, что мне нужно. Он ищет элементы <!Entity> и перемещает их в начало документа, но не удаляет их из тела документа. Мне также нужно расширить поиск до <!.*$

Вот код. В строке 15 "lines.RemoveAt(item.Key)" похоже, что это не работает

Dim largeFilePath As String = "largeFilePath"
Dim lines = File.ReadLines(largeFilePath).ToList 'don't use ReadAllLines
Dim reg = New Regex("<!Entity.*$", RegexOptions.IgnoreCase)
Dim entities = From line In lines
               Where reg.IsMatch(line)

Dim dictionary As New Dictionary(Of Integer, String)
Dim idx = 0
For Each s In entities
    idx = lines.IndexOf(s, idx)
    dictionary.Add(idx, s)
Next

For Each itm In dictionary
    lines.RemoveAt(itm.Key)
Next

For Each s In entities.ToList
    lines.Insert(1, s)
Next

Using sw As New System.IO.StreamWriter("newfile.txt")
    For Each line As String In lines
        sw.WriteLine(line)
    Next
    sw.Flush()
    sw.Close()
End Using

Тестовые данные

<!DOCTYPE DOC PUBLIC "-//USA-DOD//DTD 38784STD-BV7//EN"[
<!ENTITY cdcs_5-35.wmf SYSTEM "graphics\CDCS_5-35.wmf" NDATA wmf>
<!ENTITY cdcs_2-2a.wmf SYSTEM "graphics\CDCS_2-2A.wmf" NDATA wmf>
<!ENTITY GCS38849 SYSTEM "Graphics\GCS38849.cgm" NDATA cgm>
<!ENTITY GCS39016 SYSTEM "Graphics\GCS39016.cgm" NDATA cgm>
<doc service = "xs" docid = "BKw46" docstat = "formal" verstatpg = "ver" cycle = "1" chglevel = "1">
<front numcols = "1">
<idinfo>
<?Pub Lcl _divid = "100" _parentid = "0">
<tmidno>Life with Pets</tmidno>
<chgnum>Change 1</chgnum>
<chgdate>2 August 2018</chgdate>
<chghistory>
<chginfo>
<!ENTITY CDCS_4-21B SYSTEM "Graphics\CDCS_4-21B.wmf" NDATA wmf>
<!ENTITY CDCS_4-24B SYSTEM "Graphics\CDCS_4-24B.wmf" NDATA wmf>
<!ENTITY CDCS_4-42B SYSTEM "Graphics\CDCS_4-42B.png" NDATA png>
<!ENTITY CDCS_MFW11 SYSTEM "Graphics\CDCS_MFW1.wmf" NDATA wmf>
<!ENTITY CDCS_blk10_Cont_consl_markingsworking1 SYSTEM "Graphics\CDCS_b
<chgtxt>Change 1</chgtxt>
<date>2 August 2018</date>
</front>
<!ENTITY cdcs_2-19.wmf SYSTEM "graphics\CDCS_2-19.wmf" NDATA wmf>
<!ENTITY cdcs_3-5.wmf SYSTEM "graphics\CDCS_3-5.wmf" NDATA wmf>
<body numcols = "1">
<chapter>
<title>This is chapter 1</title>
<!ENTITY cdcs_2-5.wmf SYSTEM "graphics\CDCS_2-5.wmf" NDATA wmf>
<!ENTITY cdcs_2-24.wmf SYSTEM "graphics\CDCS_2-24.wmf" NDATA wmf>
<para0>
<title>Climb the ladder immedietly</title>
<para>Retrieve the cat.</para></para0></chapter>
<chapter>
<title>Don't forget to feed the dog</title>
<para0>
<!ENTITY GCS17777 SYSTEM "Graphics\GCS17777.cgm" NDATA cgm>
<!ENTITY GCS17782 SYSTEM "Graphics\GCS17782.cgm" NDATA cgm>
<!ENTITY GCS17783 SYSTEM "Graphics\GCS17783.cgm" NDATA cgm>
<!ENTITY GCS19983 SYSTEM "Graphics\GCS19983.cgm" NDATA cgm>
<!ENTITY GCS19984 SYSTEM "Graphics\GCS19984.cgm" NDATA cgm>
<!ENTITY cdcs_4-48.wmf SYSTEM "graphics\CDCS_4-48.wmf" NDATA wmf>
<title>Prep for puppies</title>
<para>Puppies are cute</para></para0>
</chapter>
</body>
</doc>

Результатом является файл, в котором все элементы <!Entity перемещены в начало документа, но при этом остаются в теле документа.

Желаемый результат — все элементы <!.* должны быть перемещены в начало документа и удалены из тела документа.

Спасибо за вашу помощь и терпение в этом вопросе. Максимум

vb.net

10.04.2019 17:17

Стоит ли изучать PHP в 2023-2024 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Это было решено.

Dim largeFilePath As String = "largeFilePath"
Dim lines = File.ReadLines(largeFilePath).ToList 'don't use ReadAllLines
Dim reg = New Regex("\<\!NOTATION.*$|\<\!ENTITY.*$", RegexOptions.IgnoreCase)
Dim entities = From line In lines
               Where reg.IsMatch(line)

Dim dictionary As New Dictionary(Of Integer, String)
Dim idx = -1
For Each s In entities
    idx = lines.IndexOf(s, idx + 1)
    dictionary.Add(idx, s)
Next

Dim deletedItems = 0
For Each itm In dictionary
    lines.RemoveAt(itm.Key - deletedItems)
    deletedItems += 1
Next

For Each s In dictionary.Values
    lines.Insert(1, s)
Next

Using sw As New System.IO.StreamWriter("newfile.txt")
    For Each line As String In lines
        sw.WriteLine(line)
    Next
    sw.Flush()
    sw.Close()
End Using

10.04.2019 18:09

Другие вопросы по теме

Кодируйте более короткое пересечение в функции VB.Net

Показать максимальное значение из текстового поля строки

Как справиться с неправильным форматом?

Недопустимое имя пути с использованием fileStream

Проверить доступ к веб-службе SOAP/REST, не вызывая ее

Мне нужно создать файл xml из файла csv, который не сохраняет первую строку в виде тегов

Запускать два события одновременно

Передача переменных в неоткрытые формы

Как в универсальной структуре VB.NET получить доступ к ее явно предоставленному конструктору?

Каков наилучший способ получить HTML для HTML Agiligy Pack для обработки?

Функция не удаляет строку из основного текста

Ответы 1

Другие вопросы по теме

Похожие вопросы