Я пытаюсь переместить старый классический ASP-сайт для работы на PHP. Я переписываю биты этого, однако я столкнулся со следующей функцией, которая вызывает у меня некоторые проблемы. По существу, функция FixForSQL
запускается на всем перед добавлением ее в базу данных, а затем FixForHTML
запускается на данных, возвращенных с помощью запроса SQL, чтобы отформатировать ее для отображения.
В настоящий момент, если я отображаю блок текста, полученный из базы данных на PHP, он отображается как один огромный блок текста без разрывов абзаца, я полагаю, потому что я не сделал замену Chr(13)
и тому подобного Chr(9)
is!
Кто-нибудь знает, как воспроизвести все, что происходит в PHP 5?
Function FixForHTML(tmpText1)
Dim tmpText2
tmpText2 = tmpText1
tmpText2 = Replace(tmpText2,Chr(13),"</p><p>" & vbCrLf)
tmpText2 = Replace(tmpText2,Chr(9),"    ")
FixForHTML = tmpText2
End Function
Function FixForSQL(tmpText1)
Dim tmpText2
tmpText2 = tmpText1
tmpText2 = Replace(tmpText1,vbCrLf,Chr(13))
tmpText2 = Replace(tmpText2,Chr(39),String(2,39))
FixForSQL = tmpText2
End Function