Simple Math Opertation

Question

Hello

I need to calculate how many parts an SMS text is, the text is US Ascii so here's the long code with minimum of 15 lines:

.Length > 0 AndAlso .Length <= 160 Then Return 1
.Length > 160 AndAlso .Length <= 320 Then Return 2
.Length > 320 AndAlso .Length <= 480 Then Return 3
.Length > 480 AndAlso .Length <= 640 Then Return 4
.Length > 640 AndAlso .Length <= 800 Then Return 5
...
.Length > 2240 AndAlso .Length <= 2400 Then Return 15

I'm not familiar with .net math methods, just checking if there's a simpler way to do this calculation?

Thanks for help.

Answer 1

Here is a method that gives the results specified.

Private Function SomeMethod(SMSText As String) As Integer

    Dim rv As Integer = CInt(Math.Ceiling(SMSText.Length / 160))

    Return rv

End Function

And some test code

    Dim s As String

    For x As Integer = 1 To 16

        s = New String("*"c, (x * 160) - 1)

        Debug.Write(s.Length)

        Debug.Write("    ")

        Debug.WriteLine(SomeMethod(s))

        s &= "*"

        Debug.Write(s.Length)

        Debug.Write("    ")

        Debug.WriteLine(SomeMethod(s))

        s &= "*"

        Debug.Write(s.Length)

        Debug.Write("    ")

        Debug.WriteLine(SomeMethod(s))

        Debug.WriteLine("")

    Next

Answer 2

Try something like this:

Dim d = .Length \ 160
Dim r = .Length Mod 160

Return If(r <> 0, d + 1, d)

Answer 3

Hi @StewartBW ,

Use Mod operator to determine if it is an integer multiple of 160, then use / to determine the multiple.

    Public Function count(str As String) As Integer
        If (str.Length Mod 160) = 0 Then
            Return str.Length / 160
        Else
            Return str.Length / 160 + 1
        End If
    End Function

Best Regards.

Jiachen Li

---

If the answer is helpful, please click "Accept Answer" and upvote it.

Note: Please follow the steps in our documentation to enable e-mail notifications if you want to receive the related email notification for this thread.

Answer 4

If A and B are both positive integers, the following formula holds.

↑A/B↑ = ↓(A+B-1)/B↓

Function GetLineCount(length As Integer) As Integer
    Return (length + 159) \ 160
End Function