folk der ved nåde om gsm terminal læs her

ja.. nu behøver man jo ikke lige frem at vide noget om "GSM terminal" for at kunne "splitte data op"..

Du kan jo starte med at vise noget af det data som skal splittes op.. (med mindre det er noget BIN-data)

Nej det gør det ikke jeg har prøve med en del både med split og med Replace ude held..

Min modtage data se sådan ud !!!

AT+CGMI
Sony Ericsson

OK
AT+CGSN
35049683034180209

OK
Og når jeg prøver at splite den finder jeg ud af der er en del CHR(10) og CHR(13) coder mellem data, men kan ikke få den til at splite dem sådan at jeg få dem ud som jeg kan bruge dem til nåde !!!

dog skal det også lige siges at jeg ikke har arbejder meget med MSCOmm før !!!

ja.. MSCOmm er ikke sjov at lege med.. man skal tjække buffer for at være sikker på at man har det hele.. så det er nok MSCOmm som drille ;)

den med at splitte crlf kan du klare med:
arrSplit = Split(strData, vbCrLf)

Jeg kender en som har rodet med MSCOmm før.. jeg skal da sige til ham at du mangler lidt hjælp.. Jeg har ikke rodet med MSCOmm før.. så det kan jeg ikke hjælpe dig med :(

Det må du meget geren !!!

her er lidt om MSCOmm: http://www.macoratti.net/vb_comm.htm

det er nok noget af det her som du skal bruge til at hive din data med:

Private Sub MSComm1_OnComm()
  Select Case MSComm1.CommEvent
  'mensagens dos eventos
  Case comEvReceive
    Text1.Text = Text1.Text & StrConv(MSComm1.Input, vbUnicode)
  End Select
End Sub

Prøv lige at kigge her :
http://eksperten.dk/spm/530707

Hvad er det for noget Spam
som bliver lukket om 5 dage..???

AT+CGSN svare med serienummeret. Hvad er det egentligt at du vil? Seriennummer

Ja hvad vil jeg jo jeg vil have en del data ud af mit gsm Terminal og lagt det i variabler til sender brug !!! og så vil jeg sende sms ud gemme det !!!

Min ide var at jeg vil sende en del spørsmål til mit terminal og så få det data jeg skal bruge så jeg kan fortæle min bruger hvad terminal de har med at gøre.. da de skal indtaste pin-kode til deres terminal under opsætning !!!

Men hvor vigtigt kan det være at have terminalens serienummer?

Det kan jeg ikke se kommer sage ved !!! jeg skal bruge det til mit system.

Først skal du have din MSComm til
at hente ALLE dine data.
Er du sikker på at du får dem alle..??
Læs http://eksperten.dk/spm/530707
og vend tilbage, der er sandsynligvis et
par ting som skal ændres og nogle som
er udeladt.
Når det så virker, er det "piece of cake"
at få den ønskede information ud.
Okææ...??

Alt det har jeg. mit problem er den data jeg få ud jeg ikke kan bruge da den er underlige !!!

AT+CGSN giver : 35049683034180209
og hvor er så de CR og LF karakterer
som du taler om....???

Jeg har leget lidt med det.. prøv om det er noget du kan bruge..

' ---------------------------------- Form1 ----------------------------------
' Husk en ListBox (List1)
' ---------------------------------------------------------------------------
Option Explicit

Private Sub Form_Load()
Dim strGSM As String
  ' ------------- Test data -------------
  strGSM = "AT+CGMI" & vbCrLf
  strGSM = strGSM & "Sony Ericsson" & vbCrLf & vbCrLf
  strGSM = strGSM & "OK" & vbCrLf
  strGSM = strGSM & "AT+CGSN" & vbCrLf
  strGSM = strGSM & "35049683034180209" & vbCrLf & vbCrLf
  strGSM = strGSM & "OK" & vbCrLf
  ' ------------- Test data -------------

Dim i As Long
Dim arrSplit() As String
Dim strLine As String

  arrSplit = Split(GSMReplace(strGSM), vbCrLf)
  For i = LBound(arrSplit) To UBound(arrSplit)
    strLine = arrSplit(i)
    If InStr(1, strLine, "AT+C") = 0 Then
      If UCase$(strLine) <> "OK" And Trim$(strLine) <> "" Then
        List1.AddItem strLine
      End If
    End If
  Next

End Sub

Public Function GSMReplace(strData As String) As String
Dim strNew As String
  strNew = strData
  Do While InStr(1, strNew, vbCrLf & vbCrLf)
    strNew = Replace(strNew, vbCrLf & vbCrLf, vbCrLf)
  Loop
  GSMReplace = strNew
End Function
' ---------------------------------- Form1 ----------------------------------

tak ser godt ud kiger på det og vender tilbage imorge eller søndag.. da jeg har en del at lave...

jo men så er det da godt at vi har tid....
;o)

hey igen.. ja arbejder og arbejder. jeg tro jeg har funde en løsning.. men ellers vender jeg tilbage !!! takker alle for jeres hjælp og tid.. !!!!

Tak for det...