[RBForums] Networking: Can you guys help me refine this code?

[rbforumnotifier]

New topic in Networking: 

Can you guys help me refine this code?

briansykes - Tue Apr 01, 2008 8:40 am

<http://forums.realsoftware.com/viewtopic.php?t=21572>
                                                                                
                                                                                
Code:Sub DataAvailable()
  dim data as string, t1() as string, i as integer, comcount as integer, 
newcom as string
  
  data = wskdata.readall
  WSBuffer = WSBuffer + data
  t1 = split(WSBuffer, Chr(10))
  for i = 0 to ubound(t1)
    comcount = len(t1(i))
    if comcount > 0 then
      newcom = t1(i)
    end if
  next i
  processdata newcom
End Sub
                                        
                                                                                
                                                                                
                                                                                
                                                                                
                                        




-- 
Over 900 classes with 18000 functions in one REALbasic plug-in. 
The Monkeybread Software Realbasic Plugin v8.1. 

&lt;http://www.monkeybreadsoftware.de/realbasic/plugins.shtml&gt;

rbforumnotifier@monkeybreadsoftware.de