checked. the original data contain line return. we have a function (see below) which we convert the line return to "<br>". see if your side can handle it. thanks
An international financial firm seeks for a right candidate to join the company in a capacity of System Analyst or Senior Analyst Programmer in the regional office.
<b><u>Requirements:</u></b>
- Above 6 years' experience in AS/400.
- For SA post, min. 3 years experience in system analysis and design
- Holder of High Diploma or above in Computer Science or related subject.
- Good knowledge in COBOL/400 or RPG/400
- Experience in insurance / financial systems.
- Good communication in inter-personal skills
If you are interested in applying the job, please e-mail your detailed resume in <b>MS Word format</b> to <a href="mailto:alex@techsearch.com.hk"><u><font color=#004b61>alex@techsearch.com.hk</u></font></a>
- The latest and expected annual package is useful for us to search matched vacancies in the market.
- We are limited not to disclose our client's information due to our service commitments.
- Your personal data will not be disclosed to any third party prior to you consent by all means. All personal data are strictly confidential and only be used for the recruitment activities.
- We do not accept any oversea applications.
- No service fee is required for job seekers.
Function DisplayText(strString)
Const CARET = "-"
Dim strText
Dim strLine
Dim strChar
Dim intPos
Dim bStarted
strText = ""
bStarted = False
Do Until Len(strString) = 0
intPos = InStr(strString, vbCRLF)
If intPos <> 0 Then
strLine = LTrim(Left(strString, intPos - 1))
strChar = Left(strLine, 1)
If strChar = CARET Then
If Not bStarted Then
strText = strText & "<ul>"
bStarted = True
End If
strText = strText & "<li>" & Trim(Right(strLine, Len(strLine) - 1)) & "</li><br>"
ElseIf Trim(strLine) = "" Then
strText = strText & "<br>"
Else
If bStarted Then
bStarted = False
strText = strText & "</ul>" & strLine & "<br>"
Else
strText = strText & strLine & "<br>"
End If
End If
strString = Right(strString, Len(strString) - intPos - 1)
Else
strLine = LTrim(strString)
strChar = Left(strLine, 1)
strString = ""
If strChar = CARET Then
If Not bStarted Then
strText = strText & "<ul>"
bStarted = True
End If
strText = strText & "<li>" & Trim(Right(strLine, Len(strLine) - 1)) & "</li>"
Else
If bStarted Then
bStarted = False
strText = strText & "</ul>" & strLine & "<br>"
Else
strText = strText & strLine & "<br>"
End If
End If
End If
Loop
If bStarted Then
strText = strText & "</ul>"
End If
DisplayText = strText
End Function
