(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      4036,        125]
NotebookOptionsPosition[      3607,        105]
NotebookOutlinePosition[      3950,        120]
CellTagsIndexPosition[      3907,        117]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Programmierstil", "Title",
 CellChangeTimes->{{3.44272127084375*^9, 3.442721288046875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"getBasicNameAndSize", "[", "fullname_", "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Block", "[", " ", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "charlist", ",", "firstDigitPosition", ",", "lastDigitPosition", ",", 
      "i", ",", "basicNameString", ",", "sizeString", ",", "size"}], "}"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"charlist", "=", 
      RowBox[{"Characters", "[", "fullname", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"i", "=", "1"}], ",", 
       RowBox[{"i", "\[LessEqual]", 
        RowBox[{"Length", "[", "charlist", "]"}]}], ",", 
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"DigitQ", "[", 
          RowBox[{"charlist", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", 
         RowBox[{"lastDigitPosition", "=", "i"}]}], "]"}]}], 
      "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"i", "=", 
        RowBox[{"Length", "[", "charlist", "]"}]}], ",", 
       RowBox[{"i", "\[GreaterEqual]", "1"}], ",", 
       RowBox[{"i", "--"}], ",", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"DigitQ", "[", 
          RowBox[{"charlist", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", 
         RowBox[{"firstDigitPosition", "=", "i"}]}], "]"}]}], 
      "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"basicNameString", "=", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Take", "[", "\[IndentingNewLine]", 
        RowBox[{"charlist", ",", 
         RowBox[{"firstDigitPosition", "-", "1"}]}], "\[IndentingNewLine]", 
        "]"}], "//", "StringJoin"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"sizeString", "=", 
      RowBox[{
       RowBox[{"Take", "[", "\[IndentingNewLine]", 
        RowBox[{"charlist", ",", 
         RowBox[{"{", 
          RowBox[{"firstDigitPosition", ",", "lastDigitPosition"}], "}"}]}], 
        "\[IndentingNewLine]", "]"}], "//", "StringJoin"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"size", "=", 
      RowBox[{
       RowBox[{"StringSplit", "[", 
        RowBox[{"sizeString", ",", "\"\<x\>\""}], "]"}], "//", 
       "ToExpression"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"basicNameString", ",", "size"}], "}"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.443420663078125*^9, 3.4434207401875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"getBasicNameAndSize", "[", "\"\<dahlie98x80.raw\>\"", 
  "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"dahlie\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"98", ",", "80"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.44272131925*^9, 3.443420755109375*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{616, 750},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 97, 1, 83, "Title"],
Cell[667, 25, 2590, 63, 412, "Input"],
Cell[CellGroupData[{
Cell[3282, 92, 97, 2, 31, "Input"],
Cell[3382, 96, 197, 5, 30, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
