Изменить нумерацию в текстовом поле, выведенного из текстового файла

@adb420 · Регистрация: 09.10.2013

Студворк — интернет-сервис помощи студентам

вывожу строки из текстового файла в текстовое поле на форме.

текстовый файл формата:

СТРОКА06302015/08/052823 082015ПАО
ВЫЧЕТ0501000039210017373058311261ИВАНОВ ИВАН СЕРГЕЕВИЧ
ВЫЧЕТ00000000
СТРОКА06302015/08/052846 082015ПАО
ВЫЧЕТ0501000039210017373058311262ПЕТРОВ ПЕТР ВАСИЛЬЕВИЧ
ВЫЧЕТ00000000
СТРОКА06302015/08/052837 082015ПАО
ВЫЧЕТ0501000039210017373058311263СЕРГЕЕВ АЛЕКСАНДР ИВАНОВИЧ
ВЫЧЕТ00000000
СТРОКА06302015/08/052818 082015ПАО
ВЫЧЕТ0501000039210017373058311263ЕРОХОВА ВАЛЕНТИНА ГЕОРГИЕВНА
ВЫЧЕТ00000000
СТРОКА06302015/08/052567 082015ПАО
ВЫЧЕТ0501000039210017373058311266ШИРОКОВ РОМАН ГЕОРГИЕВИЧ
ВЫЧЕТ00000000

VB.NET
1
TextBox2.Lines = (From line In IO.File.ReadAllLines("D:\12.TXT", System.Text.Encoding.Default) Where line.StartsWith("Строка")).ToArray()

привел кусок файла, в самом фале боле 2000 записей.
выводиться на форму,в текстовое поле он так:
СТРОКА06302015/08/052823 082015ПАО
СТРОКА06302015/08/052846 082015ПАО
СТРОКА06302015/08/052837 082015ПАО
СТРОКА06302015/08/052818 082015ПАО
СТРОКА06302015/08/052567 082015ПАО

необходимо поменять нумерацию, что бы она шла по порядку...
номер, с которого начинается вводиться в текстовое поле.
номер это -
2823
2846
2837
2818
2567

затем по нажатию на кнопку необходимо эту нумерацию по порядку провести до конца файла.
например, ввожу номер 002111, нажимаю на кнопку и первая строка в текстовом поле будет выглядеть так:
СТРОКА06302015/08/05002111 082015ПАО
вторая на единицу больше
СТРОКА06302015/08/05002112 082015ПАО
третья еще на единицу больше
СТРОКА06302015/08/05002113 082015ПАО

и так далее до конца файла, затем сохраняю файл так:

VB.NET
1
2
3
4
5
6
7
8
9
Dim allLines As String() = File.ReadAllLines("D:\12.TXT", Encoding.Default)
        Dim changedIdx As Integer = 0
        For i As Integer = 0 To allLines.Length - 1
            If allLines(i).StartsWith("Строка") Then
                allLines(i) = TextBox2.Lines(changedIdx)
                changedIdx += 1
            End If
        Next
        File.WriteAllLines("D:\12.TXT", allLines, System.Text.Encoding.Default)

возможно ли такое осуществить?, очень прошу помощи, руками такой большой файл очень долго редактировать.
очень буду рад и благодарен любой помощи. заранее огромное спасибо за помощь.

@adb420 · 18.08.2015, 16:25 **[ТС]**

вот сам файл

@chumich · 18.08.2015, 21:03

Сообщение от adb420

вывожу строки из текстового файла в текстовое поле на форме

Только для сортировки или еще для чего-нибудь? Можно же отсортировать не выводя в текстбокс.

Сообщение от adb420

например, ввожу номер

Вы задаете номер от которого должна вестись сортировка? Или нужно отсортировать все записи от первой до последней? В этом случае, зачем вводить номер?

Сообщение от adb420

ввожу номер 002111

То есть к отсортированным четырехзначным номерам нужно добавить 00?

И еще: первая цифра в четырехзначных номерах больше 0 или могут встречаться 0387, 0001 и т. д.?

@adb420 · 18.08.2015, 21:27 **[ТС]**

chumich, сортировать не надо их... как записи идут по порядку, так они и должны идти, просто задать им нумерацию по порядку.
к отсортерованным номерам должны добавляться 00.

Сообщение от chumich

И еще: первая цифра в четырехзначных номерах больше 0 или могут встречаться 0387, 0001 и т. д.?

нет

@chumich · 18.08.2015, 21:37

Сообщение от adb420

chumich, сортировать не надо их

То есть их надо просто перенумеровать, внедрив в первую запись введёный номер и далее прибавляя к нему по единице?

@adb420 · 18.08.2015, 21:52 **[ТС]**

chumich, да

@chumich · 18.08.2015, 22:36

Если предположить, что начальное значение вы задаете в TextBox1, то можно сделать так:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim tempArray() As String
tempArray = TextBox2.Lines
Dim counter As Integer
counter = CInt(TextBox1.Text)
Dim i As Integer = 0
For Each t In tempArray
     tempArray(i) = t.Substring(0, 20) & "00" & CStr(counter) & t.Substring(24)
     counter = counter + 1
     i = i + 1
Next
End Sub

В результате у вас будет массив tempArray, содержащий видоизмененные строки.

@adb420 · 18.08.2015, 22:44 **[ТС]**

chumich, ЧТО ТО НЕ РАБОТАЕТ...ЖМУ НА КНОПКУ И НИЧЕГО НЕ ПРОИСХОДИТ...
В ЧЕМ МОЖЕТ БЫТЬ ПРОБЛЕМА?

@chumich · 18.08.2015, 22:54

Сообщение от adb420

ЧТО ТО НЕ РАБОТАЕТ

А что вы хотите увидеть? В этом куске кода нет вывода. Если хотите проверить, можете поместить на форму еще один текстбокс с разрешенным MultiLine и добавить в конец кода (после цикла):

VB.NET
1
TextBox3.Lines = tempArray

Тогда в новом текстбоксе всё увидите. Или поставьте Message внутрь цикла. Но, если вы проверяете на 2000 записях, то в случае Message придется 2000 раз щелкать ОК.

@adb420 · 18.08.2015, 22:59 **[ТС]**

chumich, ааа...) точно) спасибо, все работает!!) затупил малек)

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@adb420 8 / 8 / 1 Регистрация: 09.10.2013 Сообщений: 613
	18.08.2015, 21:52 [ТС]
	chumich, да 0

@adb420 8 / 8 / 1 Регистрация: 09.10.2013 Сообщений: 613
	18.08.2015, 22:44 [ТС]
	chumich, ЧТО ТО НЕ РАБОТАЕТ...ЖМУ НА КНОПКУ И НИЧЕГО НЕ ПРОИСХОДИТ... В ЧЕМ МОЖЕТ БЫТЬ ПРОБЛЕМА? 0

@adb420 8 / 8 / 1 Регистрация: 09.10.2013 Сообщений: 613
	18.08.2015, 22:59 [ТС]
	chumich, ааа...) точно) спасибо, все работает!!) затупил малек) 0

Изменить нумерацию в текстовом поле, выведенного из текстового файла

Решение