Domino 9 und frühere Versionen > Entwicklung

String Extraction per LotusScript

<< < (2/3) > >>

MUslar:
Danke für die Schnelle Hilfe, jetzt geht es endlich...meine erste Idee wäre gewesen, zeichen für Zeichen die Kette durchzugehen und die Zeichen zwischen den ersten beiden " zu sammeln und zurückzuliefren :)) Eure Lösung ist aber einfach schneller :) ;D

dankend

Mathias

eknori:
@glombi:

schöne Lösung

eknori

Glombi:
eknori, Danke für die Blumen :D

Nach 11 Jahren @Formelsprache mit @Left und @Right geht einem das schnell von der Hand-  zumal es in Script seit R5 ENDLICH strLeft etc. gibt. Früher musste man entweder Evaluate( |@Left....|) oder schlimmer mit Instr(...) die Position bestimmen und dann mit Left$... abschneiden. Aber das kennst Du ja...

Andreas

eknori:
hmm, vermutlich hätte ich mir die Sache mal wieder verkompliziert  ;D und erst einmal eine Funktion geschrieben, die den Extrakt macht. Hier bietet sich ja ein Äquivalent zu @Word an:

Sub Click(Source As Button)
   deinString$ = |<balabalabla name="dieser_text_ist_belibieg" attribut="testetxt">|
   Msgbox atWord ( deinString$ , Chr(34) , 2)
End Sub

Function atWord ( sourceString As String, separator As String, number As Integer ) As String
   searchString$=SourceString & separator
   For i% = 1 To number
      pos%=Instr(searchString$, separator)
      If pos%=0 Then Exit For
      substring$=Left(searchString$,pos%-1)
      searchString$=Mid(searchString$, pos%+1)
   Next
   If pos% > 0 Then
      atWord=substring$
   Else
      atWord=""
   End If
End Function

Glombi:
eknori,
You are a code machine  ;D ;D ;D

Andreas

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete