Visual Basic Forum

Verfasst am: 20.02.2012, 18:03 Aufrufe: 149

Verfasst am: 20.02.2012, 17:54 Aufrufe: 149

Verfasst am: 20.11.2011, 20:59 Aufrufe: 363

Funktioniert auch, aber eben immer erst nach dem zweiten click. Was mach ich falsch? Danke im Voraus für Eure Hilfe. Option Compare Database Option Explicit Private ZuErsetzen As String Private Inhalt As String Private Sub cmd_bold_Click() On Error GoTo cmd_bold_Click_Error If ZuErsetzen = "" Then Exit Sub End If Inhalt = Replace(Inhalt, ZuErsetzen, "<b>" & ZuErset ...

Verfasst am: 10.08.2011, 08:34 Aufrufe: 542

WriteLine(" 62") file.WriteLine("93") file.WriteLine(" 6") file.WriteLine("CONTINUOUS") file.WriteLine(" 10") file.WriteLine(Replace(x1, ",", ".")) 'x-koordinate start file.WriteLine(" 20") file.WriteLine(Replace(y1, ",", ".")) 'y-koordinate start ...

Verfasst am: 02.12.2010, 12:06 Aufrufe: 587

Verfasst am: 02.10.2010, 03:04 Aufrufe: 598

hallo leute ich bin leider noch ein anfänger und deshalb beschäftige ich mich mit einen text crypter und habe auch schon mein erstes problem. Sad

Warnung 2 Die TextBox1-Variable wird verwendet, bevor ihr ein Wert zugewiesen wird. Zur Laufzeit kann eine Nullverweisausnahme auftreten. beispiel: TextBox2 = Replace(TextBox1, encrypta, "srgae") ich komm nicht weiter bitte um hilfe ...

Verfasst am: 20.09.2010, 11:00 Aufrufe: 541

Als Ergänzung: Wenn ich mir den uebergebenen String ausgeben lasse, funktioniert es. Sobald ich aber den String SPSinput "verarbeite", z.B. in eine andere Variable speichere, oder mit replace oder split verwende, scheint sich das Programm unbemerkt auszuhängen. Nachfolgende Befehle wie einfach MsgBox werden nicht mehr ausgefuehrt, eine Fehlermeldung oder ähnliches erhalte ich aber auch nicht. Vielliecht ...

Verfasst am: 06.09.2010, 15:37 Aufrufe: 541

Verfasst am: 30.08.2010, 12:51 Aufrufe: 336

Verfasst am: 13.11.2009, 11:21 Aufrufe: 2711

UsedRange.Columns(gS1_VERCol) ver = 0 For Each c In a.Cells s = Replace(c, ".", ",") If IsNumeric(s) Then tmp = CSng(s) If tmp > ver Then ver = tmp End If Next c getCurrentVersion = Replace(CStr(ver), ",", ".") End Function Private Sub Comm ...

Verfasst am: 25.09.2009, 09:20 Aufrufe: 771

Name: FindStringFunktion: Gibt einen umbekannten String wert ausAusgabe: StringBeschreibung:Löscht bis zum ersten Zeichen des gesuchten Strings und sucht von da anweiterCode:Function FindString(Text, TextToDelete, Lengh)<br />FindString = Left(Replace(Text, TextToDelete, ""), Lengh)<br />End FunctionUse:MsgBox FindString(Text1.Text, "BIS ZUM ERSTEN ZEICHEN DES STRIN ...

Verfasst am: 17.07.2009, 09:24 Aufrufe: 834

... 443" ' SSL Port 'Wenn der Port unterstützt wird, wird er an die URL angefügt If port <> "" Then ' 'Anfügen des Ports an den URI Dim u As New Uri(url) 'Get the host (example: "www.example.com") Dim host As String = u.Host 'Replace ...

Verfasst am: 29.06.2009, 14:22 Aufrufe: 1306

Beschreibung:Diese Klasse überwacht veränderungen in der Registry entweder an einem Key oder an einem Wert.Wenn man einen Key überwacht wird das Event immer dann ausgelöst wenn irgendetwas an diesem Key geändert wird wie z.B. es wird unter diesem Key ein neuer Key angelegt oder es wird ein Wert geändert.Wenn man einen Wert überwacht wird das Event immer nur dann ausgelöst wenn auch genau dieser Wert verändert wird.Fu ...

Verfasst am: 29.06.2009, 14:13 Aufrufe: 1315

Beschreibung:Mit der Funktion kann man den Windows XP Key ändern.Funktioniert aber erst ab SP1Funktion:Visual Basic: Quelle: dotnet-snippets.de

Verfasst am: 15.06.2009, 16:51 Aufrufe: 686

Text + " STRG") Else ShortCutTextBox.Text = Trim(ShortCutTextBox.Text + "STRG") End If End If Else ShortCutTextBox.Text = Trim(Replace(ShortCutTextBox.Text, " ", " ", 1, -1, CompareMethod.Binary)) ShortCutTextBox.Text = ...

Verfasst am: 07.05.2009, 12:38 Aufrufe: 1033

... amp; " id=" & Chr(34) & "left" & Chr(34) & " style=" & Chr(34) & "text-align: center;" & Chr(34) & "> ")(1) ' index außerhelb des gültigen bereichs wtf strAnkunft = Split(bufAnkunft, "</td><td class=")(0) strAnkunft = Replace ...

Verfasst am: 02.05.2009, 19:02 Aufrufe: 820

Exists(stub) = False Then MessageBox.Show("error - stub not found!") Exit Sub End If ProgressBar1.Value = 50 If IO.File.Exists(file) Then MessageBox.Show("File already exists") MessageBox.Show("Replace file now...") IO.File.Delete(file) ...

Verfasst am: 13.04.2009, 15:27 Aufrufe: 752

Verfasst am: 02.02.2009, 00:08 Aufrufe: 800

versteh nicht genau, aber ich galube du brauchst für das was ich glaube zu meine was du vor hast Replace() lg Z1uX

Verfasst am: 20.09.2008, 23:17 Aufrufe: 1064

Wo liegt das Problem? Du musst so oder so die Datei öffnen, um den Inhalt zu lesen. Von daher kannst du auch gleich den kompletten Inhalt in eine Variable laden (@BlAcKfINAl.aT wieso wollt ihr alles in ne Textbox schreiben, man kann das gleiche auch mit einer String-Variable machen) und dein Wort per Replace ersetzten. Da du den Dateinamen ja hast, einfach die Datei wieder öffnen und wieder reinschreiben, falls du so ...

Verfasst am: 20.09.2008, 21:57 Aufrufe: 1064

Schonmak mir Replace versucht?

Verfasst am: 20.09.2008, 13:37 Aufrufe: 1064

Les doch einfach die datei ein , schrieb den text in ne textbox und schau dan mit if instr nach dem wort und verwende die Replace Funktion.Wozu direkt in die Datei ? macht ja kein unterschiedMfg

Verfasst am: 05.09.2008, 05:45 Aufrufe: 841

ZiG vorschlag war glaube ich mit der Replace funktion alle buchstaben aus dem Text mit "nichts" zu ersetzen ( "" ).Hier was zur Replace-Funktion: http://www.vbarchiv.net/commands/Replace.phpDas machst du halt mit allen Buchstaben und hast dann nur noch die Zahlen.Gruss Anale

Verfasst am: 04.09.2008, 22:21 Aufrufe: 841

Aber wie soll ich was mit InStr , Replace und irgendwas prüfen wenn ich nicht weis nach was?

Verfasst am: 04.09.2008, 21:42 Aufrufe: 841

For Schleife und Replace. Am besten noch mit InStrB vorher prüfen ob der Wert enthalten ist, denn das ist schneller als jedesmal Replace auszuführen.Oder den String per Schleife durchgehen und von jedem Zeichen den Ascii Wert überprüfen und dementsprechend handeln.

Verfasst am: 04.09.2008, 14:12 Aufrufe: 517

Is replace net da um Plattern zu ersetzen?

Verfasst am: 01.09.2008, 18:13 Aufrufe: 517

Verfasst am: 01.09.2008, 17:48 Aufrufe: 517

Verfasst am: 31.08.2008, 09:17 Aufrufe: 293

Verfasst am: 31.08.2008, 09:13 Aufrufe: 293

Verfasst am: 29.08.2008, 01:16 Aufrufe: 6696

Verfasst am: 24.08.2008, 14:31 Aufrufe: 658

... utton vom server ) sendet er alles was in der textbox steht zu dem client und der zeigt es ebenfalls in einer textbox an.Jetzt kommt das Problem: wenn ich dann nach dem senden wieder auf den button vom server klicke sendet er wieder den ganzen text an den clienten,aber der text ,der davor gesendet wurde bleibt.Wie ist es möglich dass der client alles von seiner textbox mit den gesendeten daten vom server replace ...

Verfasst am: 22.08.2008, 15:27 Aufrufe: 1146

Textbox1.Text = Textbox1.text.replace(" ","")

Verfasst am: 22.08.2008, 14:56 Aufrufe: 1146

Verfasst am: 14.08.2008, 06:41 Aufrufe: 942

wenn du dıe lände der Strıngs weıst, kannst du auch eınfach:FindString = Left(Replace(quelltext, Left(quelltext, ANZAHL DER STRINGS), ""), LÄNGE DES STRINGS)

Verfasst am: 08.08.2008, 13:02 Aufrufe: 427

Verfasst am: 08.08.2008, 07:25 Aufrufe: 427

Also ıch wıll nen Text so changen, das dıe Zahlen der Buchstaben ausgegeben werdenalso A = 1B = 2C = 3usw.hab schon mıt den Replace functıon gearbeıted, nur wurde das nıcht wırklıch was

Verfasst am: 07.08.2008, 19:41 Aufrufe: 943

(sollniss;6633)Replacedu musst auch zwischen den zeilen lesen =P sollniss hat dir die antwort gegeben Very Happy

Verfasst am: 07.08.2008, 18:07 Aufrufe: 943

der k1ng0...Replace? -.-'

Verfasst am: 03.08.2008, 01:07 Aufrufe: 662

Verfasst am: 03.08.2008, 01:02 Aufrufe: 662

PS: Der Port ist immer der SelbeKann man simple mit Replace lösen. Da ja der Port immer gleich ist.":4541" wird zu "" :p

Verfasst am: 02.08.2008, 23:56 Aufrufe: 662

Verfasst am: 27.07.2008, 19:45 Aufrufe: 495

Verfasst am: 24.07.2008, 18:55 Aufrufe: 736

Verfasst am: 18.07.2008, 18:33 Aufrufe: 473

Hi, das geht so:Visual Basic: Verwendung:MsgBox DefaultBrowserBeispielprojekt ist im Anhang!

Verfasst am: 16.07.2008, 16:03 Aufrufe: 288

Verfasst am: 16.07.2008, 15:56 Aufrufe: 288

Verfasst am: 16.07.2008, 15:44 Aufrufe: 288

Verfasst am: 14.07.2008, 09:11 Aufrufe: 1212

Verfasst am: 13.07.2008, 17:32 Aufrufe: 1081