Дан текстовый файл, содержащий текст, выровненный по левому краю. Выровнять текст по центру - VB
Формулировка задачи:
Дан текстовый файл, содержащий текст, выровненный по левому краю. Выровнять текст по центру, добавив в начале каждой непустой строки нужное количество пробелов (ширину текста считать равной 50). Строки нечетной длины перед центрированием дополнять слева пробелом.
Решение задачи: «Дан текстовый файл, содержащий текст, выровненный по левому краю. Выровнять текст по центру»
textual
Листинг программы
Function MidS$(ByVal S$, Optional W& = 50) MidS$ = Space$(W) Mid(MidS$, (W - Len(S) + 1) / 2 + 1) = S End Function