nekodemus

@Eratum Deine idee ist nicht mal so schlecht und ich würde echt drauf aufbauen . Denke das ist die enfachste möglichkeit @Phade problem zu realisieren.. Nur es ist nicht grad einfach auf die Registry zu zugreifen. Ciao Nekodemus

hi ja es stand da Sather-K.......... Leider kenne ich die Sprache nicht besonders doch ich würde dich verweisen an Uni Halle.. Informatik I Sie arbeiten mit Sather, da gibt es genug beispele und übungen,.. Ciao Nekodemus

brauchst du ein Code beispiel ??

nu da musst du schon mehr preis geben, genau welch PRG. Sparche und genau wie du das in eine liste shen willst.. es ist nur ein String. nach jeder zahl.. lol das ding ist eine zahl meinst du dach jeder zifer oder wie ? Wenn ja schaue dir,die String option an..sonnst fragen und infos hergeben

Also wenn es unbedingt über eine BAT gehen muss würde ich mir ein Programm starten was die Bat datei auslesen kann und un Exel einfügt. so als anreiz ein ausschnitt aus einem Programmm was ich für RWE geschrieben hab. hier werden checkboxen 1 bis bis 16 ausgewertet und ind Excel DB mit command1 button gespeichert man braucht nur noch excel zu starten es ist daher sehr einfach das hier anzupassen Private Sub Command1_Click() ok_muele(0) = List1.Text ok_muele(1) = Check1.Value ok_muele(2) = Check2.Value ok_muele(3) = Check3.Value ok_muele(4) = Check4.Value ok_muele(5) = Check5.Value ok_muele(6) = Check6.Value ok_muele(7) = Check7.Value ok_muele(8) = Check8.Value ok_muele(9) = Check9.Value ok_muele(10) = Check10.Value ok_muele(11) = Check11.Value ok_muele(12) = Check12.Value ok_muele(13) = Check13.Value ok_muele(14) = Check14.Value ok_muele(15) = Check15.Value ok_muele(16) = Check16.Value If ok_muele(0) <> "" Then Dim firma(100) As String Dim lang As Integer Dim a As Integer Dim reserve As String Dim ih As String CommonDialog1.FileName = "E:\ism\DB\Rwe_weisweiler\Mühlenkran.xls" Excel.Workbooks.Open CommonDialog1.FileName LFlag = True Excel.Range("A4").Value = "Mühlenkran Block " + Left(ok_muele(0), 1) Excel.Range("A6").Value = "Mühle " + ok_muele(0) If Left(ok_muele(0), 1) = "H" Then ih = "91443199-0040" If Left(ok_muele(0), 1) = "G" Then ih = "91443198-0040" If ok_muele(1) = "1" Then Excel.Range("K13").Value = "x" Excel.Range("M13").Value = " " End If If ok_muele(1) = "0" Then Excel.Range("K13").Value = " " Excel.Range("M13").Value = "x" End If If ok_muele(2) = "1" Then Excel.Range("K14").Value = "x" Excel.Range("M14").Value = " " End If If ok_muele(2) = "0" Then Excel.Range("K14").Value = " " Excel.Range("M14").Value = "x" End If If ok_muele(3) = "1" Then Excel.Range("K15").Value = "x" Excel.Range("M15").Value = " " End If If ok_muele(3) = "0" Then Excel.Range("K15").Value = " " Excel.Range("M15").Value = "x" End If Excel.Range("F33").Value = Date$ ' Aktueles datum schreiben Text2List Text1, List1 block = Left(ok_muele(0), 1) If LFlag Then Excel.ActiveWorkbook.Close SAVECHANGES:=LFlag 'End End If Excel.Quit Set Excel = Nothing Else MsgBox ("Bitte eine Mühle wählen") End If Dim LenMultiLineText As String Dim c As Long, id As Long db_pfard = "E:\ism\DB\" fa_name = "\db\Rwe_weisweiler\" Set DB = OpenDatabase(App.Path & fa_name & "muehle_bericht.mdb") 'Datenbank wird geöffnet muehle_bericht.mdb Set Rst = DB.OpenRecordset("muehle_bericht") 'Tabelle "muehle_bericht.mdb" wird geöffnet Rst.AddNew 'Springt zum nächsten Eintrag in der Tabelle ''id = 2 ''Rst.Fields (0) ''Rst.MoveFirst 'Springt zum 1. Eintrag in der Tabelle ''Rst.Edit 'Änderungen ankündigen Rst.Fields("m_datum").Value = Date Rst.Fields("m_name").Value = ok_muele(0) Rst.Fields("ar_6,35m").Value = Check1.Value Rst.Fields("ar_7m").Value = Check2.Value Rst.Fields("ar_9m").Value = Check3.Value Rst.Fields("ar_11m").Value = Check4.Value Rst.Fields("ar_schutz").Value = Check5.Value Rst.Fields("ar_gelaend").Value = Check6.Value Rst.Fields("ar_auf").Value = Check7.Value Rst.Fields("ar_gitter").Value = Check8.Value Rst.Fields("tr_belas").Value = Check9.Value Rst.Fields("tr_K7m").Value = Check10.Value Rst.Fields("tr_k11m").Value = Check11.Value Rst.Fields("tr_stuez").Value = Check12.Value Rst.Fields("tr_scheis").Value = Check13.Value Rst.Fields("tr_gummi").Value = Check14.Value Rst.Fields("tr_nieder").Value = Check15.Value Rst.Fields("tr_bolz").Value = Check16.Value Rst.Fields("m_werk").Value = "Rwe_weisweiler" Rst.Fields("m_text0").Value = a0 Rst.Fields("m_text1").Value = a1 Rst.Fields("m_text2").Value = a2 Rst.Fields("m_text3").Value = a3 Rst.Fields("m_text4").Value = a4 Rst.Fields("m_text5").Value = a5 Rst.Fields("m_text6").Value = a6 Rst.Fields("m_text7").Value = a7 Rst.Fields("m_text8").Value = a8 Rst.Fields("m_text9").Value = a9 Rst.Fields("m_kw").Value = KW Rst.Fields("m_ih").Value = ih Rst.Update 'Werte sichern (in Datenbank schreiben) ' ' End Sub Edit: du muss einem Timer und CommonDialog Aktivieren hoffe es hilft ein wenig weiter.. Nekodemus

warum so komplex ruffe dich einfach so eine URL auf: xxxx.de Sollte der Inernet Explorer streiken musst du an die registry ran. und die werte: "iexplore.exe"=dword:00000001 "explorer.exe"=dword:00000001 auf "iexplore.exe"=dword:00000000 "explorer.exe"=dword:00000000 ändern Windows Registry Editor Version 5.00 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl] [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_HTTP_USERNAME_PASSWORD_DISABLE] "iexplore.exe"=dword:00000000 "explorer.exe"=dword:00000000 Nekodemus

Also wer sagt das das OSX nicht unter Windows Xp leuft.. Es leuft Sogar unter Virtual Maschine aber auch als reines OSX Rechner ( jedoch nicht 100%).. Nekodemus