|
VBasic : irgendeine Zeile auslesen
pablo am 08.09.2003 um 20:59 Uhr (0)
Hallo san, Private Sub Command1_Click() Dim s() As String Dim Count As Long, i As Long Datei öfnen Open D:Test.txt For Input As 1 Text in Array lesen Do While Not EOF(1) Count = Count + 1 ReDim Preserve s(Count) Line Input #1, s(Count) Loop Zufallsgenerator initialisieren Randomize Zufallszahl ermitteln i = Int(Rnd * (Count + 1)) MsgBox s(i) Close 1 End Sub HTH pablo
| | In das Form VBasic wechseln |
|
VBasic : Zeile von VB umschreiben?!
pablo am 07.05.2004 um 16:51 Uhr (0)
Hallo feyza, - du hast das Alias "ShellExecuteA" weggelassen, das mag er nicht. - der Pfad einer Filelistbox ist bei Laufwerken D:, bei Ordnern D:Ordner, wenn deine Datei z.B. direkt in D: liegt, hast du einen Backslash zuviel. dim s as string if right(filDateiAuswahl.Path,1)= "" then s= filDateiAuswahl.Path & filDateiAuswahl.FileName else s=filDateiAuswahl.Path & "" & filDateiAuswahl.FileName end if pablo
| | In das Form VBasic wechseln |
|
VBasic : Datei kopieren
pablo am 04.08.2004 um 21:13 Uhr (0)
Hallo Feyza, du hast das FileCopy im Programm direkt hinter ein Exit Sub gesetzt, wenn du ein Else vor kopieren einfügst und bei strCom01 = filDateiAuswahl.Path ein & "" hinzufügst, sollte es klappen. HTH pablo
| | In das Form VBasic wechseln |
|
VBasic : txt Datei ändern und speichern
pablo am 14.12.2005 um 02:31 Uhr (0)
wachsames Holzauge IIPublic Sub ReplacePos(sFileName As String)sFileName = Name der DateiDim FNr As Long, sInclPos As String, s As String Datei öffnen FNr = FreeFile Open sFileName For Input As FNr Do While Not EOF(FNr) Line Input #FNr, s gelesene Zeile ersetzen und in String schreiben sInclPos = sInclPos & Replace(s, "zahlen", "POS-zahlen") & vbCrLf Loop Close FNr String in neue Datei schreiben FNr = FreeFile Open Left(sFileName, Len(sFileName) - 4) & "_Pos.txt" _ For Output As FNr Print #FNr, Lef ...
| | In das Form VBasic wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
