Как правильно разделить строку на две подстроки левую и правую часть отдельно, используя Split?

@kshyms · Регистрация: 21.09.2015

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

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim i,i48,i230 as integer       
For i = 0 To s.GetUpperBound(0) - 1
        i48 = i48 + 1
            DataGridView1.Rows(i48).Cells(9).Value = Trim(s(i)) 'предложение
 
 
            Dim Sp As String = s(i) ' строка из текста word 
            Dim Spl() As String
  Dim pred() As String
For    i230 = 0 to 20          
 Spl( i230) = test1(i230, 1) 'разделители
 
    If  not  Spl( i230)= Sp goto line33
   
            pred(i48) = Sp.Split(Spl, StringSplitOptions.RemoveEmptyEntries)
DataGridView1.Rows(i48).Cells(0).Value = Trim(pred(0))  'левая часть предложения
            DataGridView1.Rows(i48).Cells(7).Value = Trim(pred(1)) 'правая часть предложения
      line33:
Next i230 
     
 
 
Next i

Uswer · 30.04.2021, 17:13

Сразу извиняюсь за раздувание темы, но на просторах инета наткнулся на очень интересную статейку "Библиотека Strutext обработки текстов". Это я в продолжение идеи преобразования plaint text в набор классов или иное преобразование/обработку.

I can · 30.04.2021, 17:23

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

преобразования plaint text

Тем более, что он читает текст из Ворд, а там уже есть разделение на текст, абзацы, предложения и слова.

@kshyms · 30.04.2021, 17:25 **[ТС]**

Uswer, (Of Clause) выводит ошибку почему?

Uswer · 30.04.2021, 18:58

Потому, что класс Clause видимо не определён.

Добавлено через 10 минут
I can, мне кажется, что комментарий

VB.NET
1
' строка из текста word

ещё не признак работы с документом Word. Но всё может быть. И кстати, вместо изобретения велосипеда можно работать с документом Ворд используя Microsoft.Office.Interop.Word.

I can · 30.04.2021, 20:52

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

ещё не признак работы с документом Word

А я не поэтому так решил, а потому что ТС подобные вопросы уже в нескольких темах задавал.

@kshyms · 12.05.2021, 08:54 **[ТС]**

результат

Новые блоги и статьи Все статьи Все блоги /
Нейтральные знания, чистый код - бла-бла-бла-бла, на самом деле кликбейт и самореклама, плагиат, и вот почему Hrethgir 27.07.2026 То-есть отклонение такой публикации говорит само за себя, и пусть только возьмут на вооружение после отклонения публикации - это будет чистейшим актом плагиата. Отклонял Хабр. Дословно, отклонённая. . .	тв 16 бой ии anaschu 27.07.2026 Великий Перелом ИИ: Как уравнения ОДУ Radau дожали цензурные фильтры Алисы Фиксируем в мемофонде Теории Всего беспрецедентный факт в истории ИИ-зондирования. В затяжном многораундовом. . .	мв 15. непроверенное, возможно, глюк anaschu 27.07.2026 НАУЧНО-АНАЛИТИЧЕСКИЙ ОТЧЕТ. РАЗДЕЛ 1. 1: «НАУКА» (РАСШИРЕННАЯ СТЕХИОМЕТРИЧЕСКАЯ И ГЕНЕТИЧЕСКАЯ ВЕРСИЯ)Тема: Теоретическое обоснование инвариантности 19-мерного тензорного ядра непрерывных ОДУ и. . .	Очистка реквизитов и табличных частей документа при копировании (вариант 2) Maks 26.07.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРаботу", разработанного в КА2. Задача: Заменить алгоритм запрета копирования документов для сотрудников с ролью "Стажер",. . .
Доктрина интенционального знания - Доктрина для портала "Срез". Hrethgir 25.07.2026 Может найдётся кто захочет оценить доктрину. . . Написания правил участия для меня роскошь, требующая лимита времени, поэтому все сообщения не прошедшие модерацию будут видны только участникам портала,. . .	сукцессия 44. Решил подать на припринт в межународные сервисы препринтов. Но нужно одобрение от ученых anaschu 25.07.2026 Английский вариант. Пока кто то не одобрит мою личность, мне не получиться это опубликовать на препринте. Но заявку на публикацию статьи я сегодня подам.	сукцессия 43. Вторая научная статья за месяц- прайминг и гатгил anaschu 25.07.2026 две стороны одной монеты	Более приземисто - Эстафету хвоста в .cdl (деревья эстафеты в сад). Hrethgir 25.07.2026 В будущем, после написания блока инверсии обхода дерева (эстафеты хвоста), я планирую вернуться к нашему прошлому разговору о том, обладают ли знания целеполаганием. Тогда я пришел к выводу, что. . .

Uswer 2293 / 1609 / 400 Регистрация: 26.06.2017 Сообщений: 4,773 Записей в блоге: 1
	30.04.2021, 17:13
	Сразу извиняюсь за раздувание темы, но на просторах инета наткнулся на очень интересную статейку "Библиотека Strutext обработки текстов". Это я в продолжение идеи преобразования plaint text в набор классов или иное преобразование/обработку. 0

@kshyms -4 / 4 / 0 Регистрация: 21.09.2015 Сообщений: 333
	30.04.2021, 17:25 [ТС]
	Uswer, (Of Clause) выводит ошибку почему? 0

@kshyms -4 / 4 / 0 Регистрация: 21.09.2015 Сообщений: 333
	12.05.2021, 08:54 [ТС]
	результат 0