What is wrong

[volvomann]

Hallo i tried to read out this file into a label, there is 6 lins saved with writline
I got this error ( java.lang.nullpointer expection)

sub smsbmi 

Dim textreader1 As TextReader


     textreader1.Initialize(File.OpenInput(File.DirRootExternal &"/pulsdata/mail", "Helge.doc"))
    Dim linje As String
    linje = textreader1.ReadLine    
    Do While linje <> Null
         linje = textreader1.ReadLine
       Lab.Text=linje
         Loop
    
    textreader1.Close

        
     
End Sub

 

[Erel]

Your loop is wrong.
It should be:

 linje = textreader1.ReadLine    
Do While linje <> Null
         Lab.Text=linje
          linje = textreader1.ReadLine
Loop

 

[volvomann]

Your loop is wrong.
It should be:

 linje = textreader1.ReadLine    
Do While linje <> Null
         Lab.Text=linje
          linje = textreader1.ReadLine
Loop

Ok no error but only the last saved line is shoin upp in the label.

 

[Erel]

If you want to append each line then you should write:

Lab.Text = Lab.Text & linje & CRLF

 

[JCO]

That's logical, since you are overwriting the value on every iteration.
Try changing to this:

 linje = textreader1.ReadLine    
Do While linje <> Null
          linje = linje & crlf & textreader1.ReadLine
Loop
     Lab.Text=linje

Apparently our posts crossed...

 

[Erel]

@JCO, your code will not work as linje will never be Null.

 

[volvomann]

If you want to append each line then you should write:

Lab.Text = Lab.Text & linje & CRLF

Ohh yea ther it was thank you

 

[volvomann]

Is i posible to get all 6 lines from lab.text to be sendt on sms

like i do whith one line xxxx.text (SendSms("xxxxxxxxx",Lab.text)

When i tried this i got the same error ( java.lang.nullpointer expection)

 

[Erel]

Yes. Run your program in debug mode to find the source of this error.

 

[volvomann]

Yes. Run your program in debug mode to find the source of this error.

It is here it works whith one line in the lab.text. i use it somwhere else in this app and i another apps:
is there a limit for how mutch text i can putt in sthe string?

r.RunMethod4("sendTextMessage", Array As Object(PhoneNumber, Null, Text, Null, Null),

Sub SendSms(PhoneNumber As String, Text As String)
    Dim ps As PhoneSms
    Dim r As Reflector
    r.Target = r.RunStaticMethod("android.telephony.SmsManager", "getDefault", Null, Null)
    r.RunMethod4("sendTextMessage", Array As Object(PhoneNumber, Null, Text, Null, Null), _
     Array As String("java.lang.String", "java.lang.String", "java.lang.String", _
     "android.app.PendingIntent", "android.app.PendingIntent"))
End Sub

 

[Erel]

Sms messages are limited to a certain length. However I don't think that this is the cause for this exception. You should post the full stack trace from the logs.

 

[volvomann]

View attachment log.txt

Here is the log I thing it is the lengt off the text that cause the problem when remove som lins in the file it is ok. How can I get the text to been sendt in to sms like i do on the phone And likly camtrue like one sms?

 

[volvomann]

No Iàm sure that it is the 160 chr limit that cause the problem, but i cant figure out how to fix the problem:

 

[Erel]

You can check if the length is longer than 160 and use SubString to split it into several messages.