Брутфорс, детка!

Когда сослуживцу Майка было выдано задание заменить все
символами новой строки, он решил предусмотреть все варианты. Т.к.
,
,
, и так далее, являются допустимыми в HTML, он ясно осознал, что эта работа просто создана для него.

"В топку регистрозависимое сравнение строк", должно быть думал он. "Это должно рашаться гораздо проще! О, конечно, мне кажется есть только один путь это сделать... брутфорс, детка!"

'Замена
переводом строки vbCrLf If LCase(strTagLess).Contains("
") Or LCase(strTagLess).Contains("
") Or LCase(strTagLess).Contains("
") Then strTagLess = Replace(strTagLess, "
", vbCrLf) strTagLess = Replace(strTagLess, "
", vbCrLf) strTagLess = Replace(strTagLess, "
", vbCrLf) strTagLess = Replace(strTagLess, "
", vbCrLf) strTagLess = Replace(strTagLess, "
", vbCrLf) strTagLess = Replace(strTagLess, "
", vbCrLf) strTagLess = Replace(strTagLess, "
", vbCrLf) strTagLess = Replace(strTagLess, "
", vbCrLf) strTagLess = Replace(strTagLess, "
", vbCrLf) strTagLess = Replace(strTagLess, "
", vbCrLf) strTagLess = Replace(strTagLess, "
", vbCrLf) strTagLess = Replace(strTagLess, "
", vbCrLf) End If

Майк доделал работу сослуживца, заменив этот код на:

Regex.Replace(html, "
", vbCrLf, RegexOptions.IgnoreCase)

Подобные посты:
Белый список каталогов интернет ресурсов
Поляки рулят в ТОПе
Способы генерации текста.
InTop20 - незабвенный сервис
Free Keyword Suggestion Tool