(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      4313,        134]
NotebookOptionsPosition[      3695,        109]
NotebookOutlinePosition[      4227,        129]
CellTagsIndexPosition[      4184,        126]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Zeichenketten", "Title",
 CellChangeTimes->{{3.451377005078125*^9, 3.451377007421875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"getBasicNameAndSize", "[", "fullname_", "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Block", "[", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "charlist", ",", "iFirstDigit", ",", "iLastDigit", ",", "i", ",", 
      "basicName", ",", "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[{"iLastDigit", "=", "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[{"iFirstDigit", "=", "i"}]}], "]"}]}], "\[IndentingNewLine]", 
      "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"basicName", "=", 
      RowBox[{
       RowBox[{"Take", "[", 
        RowBox[{"charlist", ",", 
         RowBox[{"iFirstDigit", "-", "1"}]}], "]"}], "//", "StringJoin"}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"sizeString", "=", 
      RowBox[{
       RowBox[{"Take", "[", 
        RowBox[{"charlist", ",", 
         RowBox[{"{", 
          RowBox[{"iFirstDigit", ",", "iLastDigit"}], "}"}]}], "]"}], "//", 
       "StringJoin"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"size", "=", 
      RowBox[{
       RowBox[{"StringSplit", "[", 
        RowBox[{"sizeString", ",", "\"\<x\>\""}], "]"}], "//", 
       "ToExpression"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"basicName", ",", "size"}], "}"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4257045523125*^9, 3.425704571703125*^9}, {
   3.451377148546875*^9, 3.451377158578125*^9}, {3.451377462265625*^9, 
   3.4513774831875*^9}, 3.451377519421875*^9}],

Cell[CellGroupData[{

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

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"dahlie\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"98", ",", "80"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.436163932*^9, 3.43616430409375*^9, 3.43616454321875*^9, 3.436536574875*^9,
    3.436536787953125*^9, 3.451377016828125*^9, {3.451377056296875*^9, 
   3.451377066828125*^9}}]
}, Open  ]]
}, Open  ]]
},
ScreenStyleEnvironment->"Working",
PrintingStyleEnvironment->"Presentation",
WindowSize->{752, 1091},
WindowMargins->{{Automatic, 2}, {Automatic, 0}},
DockedCells->(FrontEndExecute[{
   FrontEnd`NotebookApply[
    FrontEnd`InputNotebook[], #, Placeholder]}]& ),
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 96, 1, 83, "Title"],
Cell[666, 25, 2541, 64, 312, "Input"],
Cell[CellGroupData[{
Cell[3232, 93, 97, 2, 31, "Input"],
Cell[3332, 97, 335, 8, 30, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
