felixlindemann

% \svnInfo $Id: Klausur.sty 3 2011-05-18 10:05:04Z felixlindemann $
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{Klausur}[21/06/2010 Klausur von Felix Lindemann]
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%						Hinweis: Alle Intern verwendeten Variablen und Commands starten mit einem '@'			%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%

felixlindemann

\documentclass{article}
 
 \usepackage{blindtext}
\title{Title}
\author{Your Name}
 
\begin{document}
 
\maketitle{}
\tableofcontents

felixlindemann

[
// Modified Sublime-REPL keybindings for an "R-friendly" set of shortcuts.
// Copy and paste this text into the Key Bindings - User (under Preferences menu).
// For more information, see http://tomschenkjr.net/2012/05/17/using-sublime-text-2-for-r/
// original Version: https://gist.github.com/tomschenkjr/2790415#file-r-friendly-keybindings-sublime-keymap

 
// Executes a selection of text in REPL, latter only displays code and does not execute
{ "keys": ["super+shift+r"], "command": "repl_transfer_current", "args": {"scope": "selection"}},
{ "keys": ["super+shift+r", "r"], "command": "repl_transfer_current", "args": {"scope": "selection", "action":"view_write"}},

felixlindemann

% \svnInfo $Id: Klausur.sty 2 2011-05-18 08:35:27Z felixlindemann $
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{Klausur}[21/06/2010 Klausur von Felix Lindemann]
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%    Hinweis: Alle Intern verwendeten Variablen und Commands starten mit einem '@'			  %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%

felixlindemann

\NeedsTeXFormat{LaTeX2e}
\documentclass{scrartcl}
 
\usepackage[
		%UseSVN, 			%Soll SVN als Versionsverwaltung genutzt werden?
		%answers, 			%LösungFürStudenten
		MusterLoesung,		%Musterlösung
		isGruppenarbeit,	%Gruppenarbeit
		GiveLines,			%Raum für Antworten
		GivePoints,			%Kästen zur Benotung

felixlindemann

<div id="fb-root"></div>
<script>(function(d, s, id) {
  var js, fjs = d.getElementsByTagName(s)[0];
  if (d.getElementById(id)) return;
  js = d.createElement(s); js.id = id;
  js.src = "//connect.facebook.net/de_DE/all.js#xfbml=1";
  fjs.parentNode.insertBefore(js, fjs);
}(document, 'script', 'facebook-jssdk'));</script>

felixlindemann

<div class='fb-like' data-colorscheme='dark' data-send='false' 
	 data-width='450' expr:data-href='data:post.url'/>
		

felixlindemann

Public Sub createMySqlDump(Filename As String)
    ' Declaration of Variables
    
    Dim j As Integer
    Dim k As Integer
    
    Dim SQL As String
    Dim SQL_INSERT As String
    

felixlindemann

' Correct values, mysql doesn't understand due to encoding issuses
Private Function cleanValue(value As String) As String
    value = IIf(IsNull(value) Or value = "", 0, value)
        
    value = Replace(value, "%", " percent ")
    value = Replace(value, "‰", "permill")
    value = Replace(value, "'", "")
    value = Replace(value, "°", "deg")
    value = Replace(value, ">=", "geq.")

felixlindemann

' translate access dbtypes to mysql types --> Rough way here.
Private Function getFieldType(value As Integer, Optional isPK As Boolean = False) As String
    ' compare to http://allenbrowne.com/ser-49.html
    
    Dim str As String
    str = ""
    Select Case value
    Case 1
        str = "Boolean"