What is wrong

volvomann · May 21, 2012

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)

B4X:

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 · May 21, 2012

Your loop is wrong.
It should be:

B4X:

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

volvomann · May 21, 2012

Erel said:
Your loop is wrong.
It should be:

B4X:

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 · May 21, 2012

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

B4X:

Lab.Text = Lab.Text & linje & CRLF

JCO · May 21, 2012

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

B4X:

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

Apparently our posts crossed...

Erel · May 21, 2012

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

volvomann · May 21, 2012

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

B4X:

Lab.Text = Lab.Text & linje & CRLF

Ohh yea ther it was thank you

volvomann · May 21, 2012

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 · May 21, 2012

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

volvomann · May 21, 2012

Erel said:
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?

B4X:

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

B4X:

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 · May 21, 2012

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 · May 21, 2012

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 · May 21, 2012

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 · May 21, 2012

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

What is wrong

volvomann

Active Member

Erel

B4X founder

volvomann

Active Member

Erel

B4X founder

JCO

Active Member

Erel

B4X founder

volvomann

Active Member

volvomann

Active Member

Erel

B4X founder

volvomann

Active Member

Erel

B4X founder

volvomann

Active Member

volvomann

Active Member

Erel

B4X founder

Similar Threads

What is wrong

Active Member

B4X founder

Active Member

B4X founder

Active Member

B4X founder

Active Member

Active Member

B4X founder

Active Member

B4X founder

Active Member

Active Member

B4X founder

Similar Threads

Privacy & Transparency

Privacy & Transparency