Consider the following
Dim aTest As String = "dasjfasldjflsdjfasjkldf;asldjflasjkdflasdjflasjdflssdfsadf"
Debug.Print(aTest)
Debug.Print(ChopString(aTest, 55))
aTest = "dasjfasldjflsdjfasjkldf;asldjflasj"
Debug.Print(ChopString(aTest, 55))
...
Private Function ChopString(ByVal inString As String, ByVal inLen As Integer) As String
Return inString.Substring(0, IIf(inString.Length > inLen, inLen, inString.Length))
End Function
which produces the output
dasjfasldjflsdjfasjkldf;asldjflasjkdflasdjflasjdflssdfsadf
dasjfasldjflsdjfasjkldf;asldjflasjkdflasdjflasjdflssdfs
dasjfasldjflsdjfasjkldf;asldjflasj
In other words if
aTest
represents your input from your database the
ChopString
function will truncate it to 55 characters if it is longer than that, or return all of the string if it is 55 characters or shorter.
Just output the result to your text file instead of your db value