Дан текстовый файл, содержащий текст, выровненный по левому краю. Выровнять текст по центру - VB

Формулировка задачи:

Дан текстовый файл, содержащий текст, выровненный по левому краю. Выровнять текст по центру, добавив в начале каждой непустой строки нужное количество пробелов (ширину текста считать равной 50). Строки нечетной длины перед центрированием дополнять слева пробелом.

Код к задаче: «Дан текстовый файл, содержащий текст, выровненный по левому краю. Выровнять текст по центру - VB»

textual
Function MidS$(ByVal S$, Optional W& = 50)
MidS$ = Space$(W)
Mid(MidS$, (W - Len(S) + 1) / 2 + 1) = S
End Function
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

9   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы