-
Gesamte Inhalte
116 -
Benutzer seit
-
Letzter Besuch
Inhaltstyp
Profile
Forum
Downloads
Kalender
Blogs
Shop
Beiträge von KarlBerg
-
-
Original geschrieben von sYmbol
Vielleicht ungefähr so...
If Operand2 = "0" Then
MsgBox ("Meldung: Division durch 0 nicht definiert!")
Zwischenergebnis = "0"
Else
Zwischenergebnis = Operand1 / Operand2
End If
:cool:
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
-
-
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).
You can install Apache as a Windows NT service as follows:
apache -i -n "service name"
To install a service to use a particular configuration, specify the configuration file when the service is installed:
apache -i -n "service name" -f "\my server\conf\my.conf"
You can pass any other arguments, such as -d to change the default server root directory, -D, -C or -c to change config file processing, etc. Since these are stored in the registry and are difficult to modify, use this command to clear the options and replace them with a new list of options;
apache -k config -n "service name" -f "\my server\conf\my.conf"
To remove an Apache service, use:
apache -u -n "service name"
The default "service name", if one is not specified, is "Apache".
(Bezogen von: http://httpd.apache.org/docs/win_service.html)
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
-
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
-
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
-
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.-
-
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>
-
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
-
Danke,
das ging echt schnell
-
Hi,
hab jetzt schon öfter gesehen, dass die Links des Heise-Tickers auf privaten Homepages angezeigt werden.
Gibt's da ne extra Seite, die von Heise bereitgestellt wird, von der man sich die LInks ziehen kann, oder müssen die tages aktuellen Links von hier (http://www.heise.de/newsticker/) "extrahiert" werden?
Hab das auch bei Wolle auf der Seite gesehen (http://www.programmier-hilfe.de).
Vielleicht kannste mir ja erklären wie du das gemacht hast
MfG
KarlBerg
-
Hi,
danke für die Antworten.
Hab inzwischen ein wenig rumgebastelt, und bin auf ein Problem gestossen.
Hab was geschrieben, aber leider funktionierts net.
Der Code soll erkennen, wann die Zeile kommt in der "<head> steht, und dann "FRED" dahinterschreiben (ist nur vorläufig zum testen gedacht, später kommt schon noch was sinnvolles dazu )
Vielleicht hat einer ne Idee.
$file = fopen ("http://www.disclaimer.de/disclaimer.htm", "r"); if (!$file) { echo "<p>Konnte den Disclaimer nicht öffnen\n"; exit; } while (!feof ($file)) { $line = fgets ($file, 1024); if ($line == "<head>"){ echo "FRED"; } echo $line; } fclose($file);
-
Hi,
hier kannste nen Link zu einem ständig aktualisierten Disclaimer setzen.
MfG
KarlBerg
-
Hi,
kann man mit PHP aus einer Textdatei, eine bestimmte Zeile löschen?
Thx
KarlBerg
-
Danke,
aber "nowrap" wird verwendet, um einen Zeilenumbruch in einer
Zelle zu verhindern.
Und wrap, ist standartmässig (wenn man nix hinschreibt)
Vielleicht sonst wer ne Idee?
KarlBerg
-
danke....
geht gut
-
Hi,
kann man den Standard Button zum Abschicken eines Frmulars durch ein Bild ersetzen?
Und kann man die Farbe der Textbox (inputbox) ändern?
Thx
KarlBerg
-
Hi,
ich fülle mit PHP eine Spalte, die eigentlich eine feste breite haben sollte.
Das funktioniert auch so halbwegs.
Nur wenn ich ein sehr langes Wort eintrage, wird die breite angepasst, und nicht umgebrochen.
Bei "normalem" Text wird umgebrochen.
Gibt's ne Lösung innerhalb des PHP scripts, oder geht das auch per HTML?
So mach ich's bisher:
<table width="110" border="0" cellpadding=0 cellspacing=0> <tr> <td > <b>SuperBeispielText</b> </td> </tr> </table>
Thx
KerlBerg
Weiterleitungs Email-adresse (einfach mal lesen)
in Internetdienste und -dienstleister
Geschrieben
Tach,
ich such nen kostenlosen Service im Internet, der mir ne MailGruppe zur verfügung stellt.
Sollte das tun:
In die Gruppe trag ich verschiedene EMailAdressen ein.
Die Gruppe sollte ne eigene EMailAdresse haben.
Und wenn ich ne Mail an die Adresse der Gruppe sende, soll die Mail an alle Adressen in der Gruppe gesendet werden.
Weiss den richtigen Begriff dafür net.
Ähnlich ner Mailinglist, nur muss die Gruppe halt ne Adresse haben, zum anschreiben.
Wenn jmd. verstanden hat was ich will, wäre ne Antwort nett
Danke
KarlBerg