OpenOffice.info

Code: Alles auswählen

aSplittedByLines = Split(sMeinString,Chr(10))
For i = LBound(aSplittedByLines) To UBound(aSplittedByLines)
	If Instr(aSplittedByLines(i),":") > 0 Then
		aSplittedByDoubleDots = Split(aSplittedByLines(i),":")
		MsgBox aSplittedByDoubleDots(1)
	Else
		MsgBox aSplittedByLines(i)
	End If
Next i

Code: Alles auswählen

TString = Split(TextClipboard,Chr(13)
for i = 0 to ubound(TString)
msgbox TString (i)
next i

Code: Alles auswählen

Sub ConvertClipToText
Dim oClip, oClipContents, oTypes
Dim oConverter, convertedString$
Dim i%, iPlainLoc%
Dim iZeichen1 as integer
   iPlainLoc = -1
   oClip = createUnoService("com.sun.star.datatransfer.clipboard.SystemClipboard")
   oConverter = createUnoService("com.sun.star.script.Converter")
   oClipContents = oClip.getContents()
   oTypes = oClipContents.getTransferDataFlavors()
   Dim msg$, iLoc%, outS
   msg = ""
   iLoc = -1
   For i=LBound(oTypes) To UBound(oTypes)
   If oTypes(i).MimeType = "text/plain;charset=utf-16" Then
   iPlainLoc = i
   Exit For
   End If
   Next
     
   If (iPlainLoc >= 0) Then
       TextClipboard = oConverter.convertToSimpleType(oClipContents.getTransferData(oTypes(iPlainLoc)), com.sun.star.uno.TypeClass.STRING)
      FuncAcc = createunoservice("com.sun.star.sheet.FunctionAccess")      

TString = Split(TextClipboard,Chr(13)
for i = 0 to ubound(TString)
msgbox TString (i)
next i

   End If
End Sub

Code: Alles auswählen

   replaceString = Array("Redakteur","Email","EMail","Telefon",":".............)
             
   for i = 0 To ubound(copyStrings)
   cString= replaceString(cString, "", replaceString (i))
   ......

Code: Alles auswählen

Sub Main
myString = " Hier: wird : Ihnen: geholfen: "
splitString = Split(myString,":")
for i = lbound(splitString)  to ubound(splitString)-1
msgbox Trim(splitString(i))
next i
End Sub

Code: Alles auswählen

Sub ExampleIsNumeric
Dim vVar as variant
vVar = " "
print IsNumeric(vVar)
end sub

Code: Alles auswählen

Dim vVar as integer

Code: Alles auswählen

Val(" 123. 123")
Val("123. 123")
Val(" 123.123")

Code: Alles auswählen

function numeric( stext as string) as string
numeric = ""
for i = 1 to len(stext)
	char = mid( stext, i, 1)
	if isNumeric( char) and char <> " " then
		numeric = numeric & char
	end if
next
end function

Code: Alles auswählen

Sub Main
	Dim arrVocals As Variant
	GlobalScope.BasicLibraries.LoadLibrary("Tools"
	str_telefon = "mcflf,  emmv  1234 w.l,ww,w,dkdsks 45657 |"
	arrVocals = Array("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","A","B","C","D","E","F","G","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","_","-","@","€",",",";",".",":","#","'","+","*","~","´","`","?","\","ß","}","=","]",")","(","[","/","{","&","%","$","§","!","^","°","<",">","|")
             
	for i = 0 To ubound(arrVocals)
	str_telefon = replaceString(str_telefon, "", arrVocals(i))
	next i
		
	msgbox str_telefon
End Sub