KarlBerg
-
Gesamte Inhalte
116 -
Benutzer seit
-
Letzter Besuch
-
So würde die Division durch Null ja immer Null ergeben. Ist halt auch net richtig. Am besten die ganze Rechnung abbrechen, und in das Ausgabefeld "Division durch 0 nicht definiert" schreiben. MfG KarlBerg
-
http://www.phorum.org
-
mySQL+PHPmyAdmin unter Win 2k Pro
KarlBerg antwortete auf Panther's Thema in Skript- und Webserverprogrammierung
Hi, für Windows gibt's das ganze Zeug (PHP; MySQL, MySQLAdmin,...) in einem Paket. http://foxserv.linuxmax.net/portal.php Hab ich zuhause auch bei mir laufen, und hab bisher noch keine Probleme damit bekommen Bei WinNT/Win2k/WinXP würd' ich Apache dann als Dienst installieren (wenn du ihn häufig nutzen willst). MfG KarlBerg -
Hi, ich setz' auf Codegenie. Der kann auch ohne Zusatzinstallationen gleich HTML, PHP, CSS, JavaScript, Java, C++ und noch mehr hervorheben. Gibt's hier: http://www.gkesper.de/~gkesper/Download/code_genie/ MfG KarlBerg
-
Hi, soweit ich dein Problem verstanden hab, sollte dir das hier Helfen. <html> <head> <title> Beispiel </title> <!--***********************BildWechsel*********************--> <script language="JavaScript" src="images.js"></script> <script language="JavaScript"> <!-- preload('imageA','bild1.gif') preload('imageB','bild2.jpg') preload('imageC','bild3.gif') //--> </script> <!--***********************ende BildWechsel****************--> </head> <body> <body> <center> <div id="imgDiv"> <img name="myImg" src="bild1.gif" height="200" border=0> </div> <br> <a href="javascript:changeImage('imgDiv','myImg','imageA')">bild1</a> <a href="javascript:changeImage('imgDiv','myImg','imageB')">bild2</a> <a href="javascript:changeImage('imgDiv','myImg','imageC')">bild3</a> </center> </body> </html> MfG Karlberg
-
Lange Wörter umbrechen (<br>) in PHP (mit Code)
KarlBerg antwortete auf KarlBerg's Thema in Skript- und Webserverprogrammierung
Hi, leider läuft "wordwrap" erst ab PHP 4 >= 4.0.2 Hab den Fehler in meinem Code gefunden, und es läuft soweit ganz gut. Trotzdem Danke KarlBerg -
Lange Wörter umbrechen (<br>) in PHP (mit Code)
KarlBerg antwortete auf KarlBerg's Thema in Skript- und Webserverprogrammierung
Zwei Kleine Fehler sind mir jetzt schon aufgefallen. Falsch: $EndStringWert = $EndStringWert + $EndStringWert; Richtig: $EndStringWert = $EndStringWert + $MaximaleZeichenAnzahl; Falsch: $daten[2] = $daten[2].$MessagePart[$zaehler]; Richtig: $daten[2] = ""; //muss noch hinzugefügt werden $daten[2] = $daten[2].$MessagePart[$zaehler]; Sonst wer noch was? Danke KarlBerg -
Hi, gibt es ne Funktion in PHP, die in einen String, alle 10 Zeichen (als Beispiel hier 10) einen anderen String einfügt. Beispiel: EinfügeString soll <br> sein StartWert: asdfghjklöasdfghjklöasdfghjklöasdfghjklöasdfghjklöasdfghjklö Ergebnis: asdfghjklö<br>asdfghjklö<br>asdfghjklö<br>asdfghjklö<br>asdfghjklö<br>asdfghjklö Mein Problem genau: Das ganze soll später in einem Text Wörter suchen, die zB. länger als 10 zeichen sind, und IN diese Wörter dann den HTML-Zeilenumbruch <br> einsetzen, damit, diese Wörter beim Anzeigen umrechen, und nicht die Tabellenbreite verändern. Bsp: StartString: Tach, ich hab ein Prooooooooooooooooooooblem mit PHP. Ergebnis: Tach, ich hab ein Proooooooo<br>oooooooooo<br>ooblem mit PHP. Das Programm hab ich auch schon gebastelt. Aber seltsamer Dings läuft's net. Müsste aber. In daten[2] steht der Text drin, der durchsucht werden soll. //den MessageText, in ein array aufsplitten, jedes einzelne Wort (Leerzeichen abhängig) $MessagePart = explode(" ", $daten[2]); //so viele Wörter gibt es (felder im array) $AnzahlElements = count ($MessagePart); $MaximaleZeichenAnzahl = 10; $WieOft = 0; $StartStringWert = 0; $EndStringWert = $MaximaleZeichenAnzahl; $zaehler = 0; $zaehler2 = 0; for ( $zaehler=0; $zaehler<=$AnzahlElements - 1; $zaehler++) { //Anzahl der Buchstaben, des aktuellen Worts ($MessagePart[$zaehler]) $laenge = strlen($MessagePart[$zaehler]); if ($laenge > $MaximaleZeichenAnzahl){ while($EndStringWert < $laenge){ $Part1 = substr($MessagePart[$zaehler], $StartStringWert, $EndStringWert); //$Part = substr($MessagePart[$zaehler], 13, 24); //12 Zeichen vom Wort in Array schreiben, samt <br> $WortSnippet[$WieOft] = '<br>'.$Part1; //echo '<br>:::'.$Part.':::<br>'; //echo '->'.$WortSnippet[$WieOft]; //echo '<>'.$WieOft; //echo '->'.$StartStringWert.'bis'.$EndStringWert; $WieOft = $WieOft + 1; //erhöht die Punkte, von dem aus und bis abgeschnitten wird (substr) $StartStringWert = $EndStringWert + 1; $EndStringWert = $EndStringWert + $EndStringWert; } } $AnzahlElementSnippets = count ($WortSnippet); for ( $zaehler2=0; $zaehler2<$AnzahlElementSnippets - 1; $zaehler2++) { //Wort zusammensetzen $MessagePart[$zaehler] = $MessagePart[$zaehler].$WortSnippet[$zaehler2]; } //das erste <br> aus dem Gesamten String entfernen $MessagePart[$zaehler] = substr($MessagePart[$zaehler], 4); //Finale-Message ohne Smilies wieder zusammensetzen $daten[2] = $daten[2].$MessagePart[$zaehler]; } Vielleicht geht das auch ander's ist aber leider net eingefallen. Bin für ErsatzCode dankbar, aber auch für nen Hinweis auf Verbesserung. Danke KarlBerg
-
Texteditor in VB? Wie geht das?
KarlBerg antwortete auf ML-Killertom's Thema in Delphi/RPG+CL/Sonstige
Hi, hab dir ne Öffnen-Routine gebastelt. Ist nicht gerade ein Oscar-Verdächtiger Code, wird aber wohl reichen. Den Code kannste direkt da einfügen, wo du hinspringst, wenn du auf deiner Oberfläche auf Datei-Öffnen klickst. (Vor End Sub einfügen) Ansonsten musste noch die Eigenschaft der Textbox "text1" ändern. Stell MultiLine auf true. 'Prüfen ob Datei existiert If Dir(sFile, vbNormal) = "" Then Else 'TextBox leeren Text1.Text = "" 'Datei öffnen Open (sFile) For Input As #1 'bis zum Ende der Datei lesen Do While Not EOF(1) 'Jede Zeile der Datei, in die Variabel "Zeile" schreiben Line Input #1, Zeile ' Zeile, ist die eingelesene Zeile 'an den bereits in der Textbox stehenden Text, 'jede eingelesene Zeile (Zeile) eintragen und einen Zeilenumbruch (vbcrlf) Text1.Text = Text1.Text & Zeile & vbCrLf Loop 'Datei schliessen Close #1 End If MfG KarlBerg -
-Sorry, hatte versehentlich im falschen Tread gepostet.-
-
Wie baut ihr eure Seite auf (php) (include Problem?)
KarlBerg antwortete auf KarlBerg's Thema in Skript- und Webserverprogrammierung
Meine Farbeinstellungen sind bisher noch alle im Body-teil. Und zwar in der Hauptdatei UND in der Include-Datei. Deshalb hab ich auch alles zweimal in der zusammengesetzten Datei stehen, z.B. kommt doppelt vor: <html> <body> </body></html> und der ganzen Rest Das ist wohl net die Ideal-Lösung, nur leider hab ich bisher noch nicht den blassesten Schimmer von CSS. Das wird dann aber wohl bald folgen müssen Von den Templates hab ich auch erst gestern was von gehört, hab da also noch weniger Ahnung von. Wenn du ne Seite machst, benutzt du dann die Templates? Ich kann mir da recht wenig (eigentlich gar nix) drunter vorstellen. Kannste mal bitte ein wenig Code posten, wie das Template verwendet/aufgerufen wird? Wie muss die "Include-Datei" aufgebaut sein? Wie eine ganz normale HTML-Datei? Bin für jede Antwort dankbar KarlBerg -
Hi, ich hab das so gemacht. dann kann man auch mehrere Dateien gleichzeitig auswählen, und der Cancel-Fehler wird abgefangen. Dim Flag As Boolean, aa$, bb$, Path$, Mem As Boolean, Pos&, x& Dim PosChr As Integer Dim OldPosChr As Integer PosChr = 0 OldPosChr = 0 On Error GoTo Break With CommonDialog1 .filename = "" .CancelError = True .Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer .ShowOpen If Flag Then MsgBox "Es wurde 'Abbrechen' gewählt!" Else 'Schauen ob evt. nur eine Datei ausgewählt wurde If InStr(.filename, Chr$(0)) <> 0 Then aa = .filename & Chr$(0) Pos = 1 Do 'Chr$(0) ist Trennzeichen x = InStr(Pos, aa, Chr$(0)) If x = 0 Then Exit Do bb = Mid$(aa, Pos, x - Pos) If Not Mem Then 'Im ersten Teil befindet sich immer der Pfad Path = bb Mem = True Else 'Pfad ist bereits bekannt, es folgen Dateinamen FileSize = FileLen(Path & "\" & bb) MsgBox Path & "\" & bb End If Pos = x + 1 Loop Else 'Es wurde nur eine Datei ausgewählt MsgBox .filename End If End If End With Exit Sub Break: If Err.Number = 32755 Then Flag = True Resume Next ElseIf Err.Number = 20476 Then Flag = True MsgBox ("Es wurden zu viele Dateien ausgewählt!") End If Und zum öffnen von Dateien, in ihrem Standardprogramm, hab ich immer das hier verwendet. Private Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" _ (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub Command1_Click() Dim File2Open As String File2Open = "C:\autoexec.bat" intret = ShellExecute(Me.hWnd, "open", File2Open, "", "", 5) End Sub Vielleicht hilft's wem... MfG KarlBerg PS: <Toll> Beim rauskopieren und umändern zum posten, hab ich mir gerade ein Programm zerschossen, weil ich ausversehen gespeichert hab</toll>
-
mit PHP Zeile aus Textdatei löschen
KarlBerg antwortete auf KarlBerg's Thema in Skript- und Webserverprogrammierung
Danke, $String=trim($String); hat's geregelt MfG KarlBerg -
@NEO|net WOW Hast'e das selbst gestrickt, oder gibt's das irgendwo zum download? MfG KarlBerg
-
Hi, ich hab mir ne Seite gebastelt, deren Navigation und so statisch ist. Beim Klick auf nen Link, wird in einer Tabelle per include eine andere Seite geladen. Die Seiten, die "included" werden, hab ich ganz normal mit allen Attributen (Textfarbe, Linkfarbe, ...) versehen. Die eingestellten Farben, werden aber nur bedingt übernommen. Mir scheint, als würde er die Farb-Konfiguration von der Hauptseite (dem statischen Teil) ziehen. Vor allem bei den Links, nimmt er keine eigene Farbe an (nur die von der statischen Seite). Gibt es vielleicht ellegantere Lösungen, um Seiten einzubinden? Oder bin ich total auf dem Holzweg, und das wird "eigentlich" komplett anders gemacht? Thx KarlBerg
