Schlagwort-Archive: Code

Excel Macros zum entfernen von zeilenumbrüchen, nutzlosen Leerzeichen etc

Nachdem ich in den letzten Tagen einen Teil meiner SQL Scripts veröffentlicht habe, mache ich jetzt mal mit ein paar Macros weiter. Die nachfolgend aufgeführten Macros sind für Excel bestimmt und sollen einem Admin helfen Daten für die Weiterverarbeitung z. B. mit S-Verweisen (v-lookups) oder für den Upload in eine Datenbank aufzubereiten.

Diese Funktion entfernt Zeilenumbrüche aus dem markierten Bereich:

Sub entfernen_zeilenumbrueche()
Dim c As Object
For Each c In Selection
c.Value = Replace(c.Value, Chr(10), "")
Next
End Sub

Diese Funktion wandelt im markierten Bereich Zeilenumbrüche in RTF Zeilenumbrüche (\par) um:

Sub zeilenumbrueche2rtf()
Dim c As Object
For Each c In Selection
c.Value = Replace(c.Value, Chr(10), "\par")
c.Value = Replace(c.Value, Chr(11), "\par")
c.Value = Replace(c.Value, Chr(13), "\par")
Next
End Sub

Diese Funktion ersetzt etwas ausergewöhnliche Hochkommas durch „normale“ im markierten Bereich:

Sub replace_strange_chars()
Dim c As Object
For Each c In Selection
'Entfernen von komischen Hochkommas
c.Value = Replace(c.Value, Chr(191), Chr(39))
Next
End Sub

Wie der Name sagt, werden hier ein paar Sonderzeichen für einen Upload in eine MSSQL Datenbank escaped (im markierten Bereich):

Sub escape_mssql_string()
Dim c As Object
For Each c In Selection
'Escapen von Hochkommas
c.Value = Replace(c.Value, Chr(39), Chr(39) + Chr(39))
Next
End Sub

Sehr sehr nützliche Funktion. Im markierten Bereich werden alle Leerzeichen am Anfang und am Ende eines Strings entfernt. Leerzeichen im Text werden nicht entfernt:

Sub remove_useless_spaces()
Dim c As Object
For Each c In Selection
c.Value = Application.WorksheetFunction.Clean(Trim(c.Value))
Next
End Sub

Viel Spass mit den Funktionen

MSSQL String in RTF wandeln

… und noch eine SQL Funktion aus meiner Sammlung. Diese Funktion ermöglicht das Umwandeln eines normalen Strings in ein RTF „Objekt“ direkt auf der Datenbank.

-- Diese SQL Query erstellt eine neue Funktion mit dem Namen string2rtf. Die Funktion hat zur Aufgabe einen übergebenen String
-- in ein RTF Objekt umzuwandeln.
-- @param String enthält den Rohstring
-- @return rtfstring enthält den string plus die rtf Erweiterungen

if exists (select * from information_schema.routines where routine_name = N'string2rtf' and routine_type = 'function') drop function [dbo].[string2rtf]
GO
CREATE FUNCTION dbo.string2rtf(@string varchar(8000))
returns varchar(8000)
AS
BEGIN

DECLARE @praefix varchar(200)
DECLARE @suffix varchar(200)
DECLARE @rtfstring varchar(8000)

SET @praefix = '{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Microsoft Sans Serif;}}\viewkind4\uc1\pard\f0\fs17 '
SET @suffix = '\par}'
SET @rtfstring = NULL

SET @rtfstring = @praefix + @string + @suffix;
SET @rtfstring = REPLACE(@rtfstring,CHAR(9),'\tab ');
SET @rtfstring = REPLACE(@rtfstring,CHAR(13) + CHAR(10),'\par ');
SET @rtfstring = REPLACE(@rtfstring,CHAR(13),'\par ');
SET @rtfstring = REPLACE(@rtfstring,CHAR(10),'\par ');
SET @rtfstring = REPLACE(@rtfstring,'ä','\''e4');
SET @rtfstring = REPLACE(@rtfstring,'Ä','\''c4');
SET @rtfstring = REPLACE(@rtfstring,'ü','\''fc');
SET @rtfstring = REPLACE(@rtfstring,'Ü','\''dc');
SET @rtfstring = REPLACE(@rtfstring,'ö','\''f6');
SET @rtfstring = REPLACE(@rtfstring,'Ö','\''d6');
SET @rtfstring = REPLACE(@rtfstring,'ß','ss');
SET @rtfstring = REPLACE(@rtfstring,'€','\''80');

return @rtfstring
end

MSSQL Split bzw. explode function

Ich hatte die letzten Monate über das Vergnügen mein etwas eingestaubtes SQL Wissen wieder auffrischen zu dürfen. Als Folge dessen sind ein paar SQL snippets entstanden die u. U. auch jemandem anderen im Netz helfen könnten.

Als erstes möchte ich eine Funktion mit euch Teilen welche es ermöglicht einen übergebenen String anhand eines Trennzeichens zu zerlegen. Die Funktion ist sehr hilfreich wenn man Daten aus einer Datenbank ziehen muß bei der die Entwickler der Meinung waren, dass es Klug ist bestimmte Informationen einfach nur z. B. durch pipes getrennt in ein varchar Feld zu schreiben…

-- Die Funktion zerlegt einen String anhand eines Trennzeichens und gibt einen definierbaren Teilstring zurück.
-- @param String der zu zerlegenden String
-- @param Delimiter das Trennzeichen anhand dessen der String zerlegt wird
-- @param returnItem die Nummer des Objektes welches zurück gegeben werden soll
-- @return returnslice der Rückgabewert - wenn nichts gefunden wird ist dieser "Null"
-- ChangeLog:
-- 20090505: Erste Version erstellt von Johannes Schmidt (Security-Blog.eu)

if exists (select * from information_schema.routines where routine_name = N'split' and routine_type = 'function') drop function [dbo].[split]
GO
CREATE FUNCTION dbo.split(@String varchar(8000), @Delimiter varchar(12), @returnItem int)
returns varchar(8000)
AS
BEGIN

declare @id int
declare @idx int
declare @slice varchar(8000)
declare @returnslice varchar(8000)

set @id = 0
set @idx = 1
set @returnslice = null

while @idx!= 0
begin
set @id = @id + '1'
set @idx = charindex(@Delimiter,@String)
if @idx!=0
set @slice = left(@String,@idx - 1)
else
set @slice = @String

if @id = @returnItem set @returnslice = @slice

set @String = SUBSTRING(right(@String,len(@String) - @idx),len(@Delimiter) + 1, len(@String))
if len(@String) = 0 break
end
return @returnslice
end

Anwendungsbeispiel:

Select split('Ich bin ein Test', ' ', 2)

Der Rückgabewert wäre hier „bin“.