Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst VBA - Wert in einer bestimmten Position ändern

Mitglied: ReEppa

ReEppa (Level 1) - Jetzt verbinden

18.07.2008, aktualisiert 14:57 Uhr, 5918 Aufrufe, 2 Kommentare

Hallo zusammen,

kenn mich leider noch nicht gut in VBS aus. Hoffe das mir jemand von euch weiterhelfen kann.

Ich hab eine Datei (test.txt). In dieser Datei sind viel Zeilen. Nun möchte ich gerne, dass ein bestimmter Wert an einer bestimmten Position ersetzt wird. Also z.B. sollte eine 1 anstatt dem vorhanden Wert in der Position 71 eingetragen werden und das natürlich in allen Zeilen!

Hoffe ich konnte das verständlich rüber bringen...

Vorab vielen Dank!
Mitglied: bastla
18.07.2008 um 14:20 Uhr
Hallo ReEppa und willkommen im Forum!

Etwa so:
01.
Position = 71 
02.
Ersatztext = "1" 
03.
Datei = "D:\test.txt" 
04.
 
05.
Set fso = CreateObject("Scripting.FileSystemObject") 
06.
T = Split(fso.OpenTextFile(Datei).ReadAll, vbCrLF) 
07.
For i = 0 To UBound(T) 
08.
    If Len(T(i)) >= Position Then 
09.
        T(i) = Left(T(i), Position - 1) & Ersatztext & Mid(T(i), Position + 1) 
10.
    End If 
11.
Next 
12.
fso.CreateTextFile(Datei, True).Write Join(T, vbCrLF)
Die Ersetzung erfolgt "in" der Originaldatei (genauer: diese wird mit dem geänderten Inhalt neu erstellt).

Grüße
bastla

P.S.: In VBA ließe sich die Zeile 9 reduzieren auf:
01.
Mid(T(i), Position, 1) = Ersatztext
Bitte warten ..
Mitglied: ReEppa
18.07.2008 um 14:57 Uhr
Hallo bastla,

klassen! Vielen Dank! Genau so hab ich es mir vorgestellt...

Gruß
ReEppa
Bitte warten ..
Ähnliche Inhalte
VB for Applications

Access VBA an eine bestimmte position innerhalb einer Textbox springen

Frage von Sniper9800VB for Applications8 Kommentare

Hallo zusammen, ich möchte, an eine bestimmte Position innerhalb einer TextBox springen (auf Klick hin, auf ein cmd Steuerelement) ...

Microsoft Office

Excel VBA Wert hochzählen

gelöst Frage von Florian86Microsoft Office1 Kommentar

Hallo, ich habe im VBA Code folgendes stehen Range("E10") = Range("E10") + 1 Jetzt ist der Wert bei schon ...

Batch & Shell

Wie speichere ich von einer "Grundbatchdatei" einen bestimmten Wert?

gelöst Frage von IchBins01000010Batch & Shell5 Kommentare

Ich Bräuchte mal Hilfe (logisch) Ich Bin neu in der ganzen Programmierwelt und hänge gerade an einer Sache. Ich ...

Microsoft Office

Excel bei bestimmten Werten einen Rückgabewert

gelöst Frage von easy4breezyMicrosoft Office2 Kommentare

Hi Leute, es geht sozusagen um ein Ticketsystem mit Prioritäten. Die 3 Prioritäten sind Low, Medium und High, die ...

Neue Wissensbeiträge
Windows 10
Zero-Day-Lücke in Microsoft Edge
Information von kgborn vor 9 StundenWindows 10

In Microsofts Edge-Browser klafft wohl eine nicht geschlossene (0-Day) Sicherheitslücke im Just In Time Compiler (JIT Compiler) für Javascript. ...

Sicherheit
Microsoft und Skype: Sicherheit
Information von kgborn vor 10 StundenSicherheit

Die Tage gab es ja einige Berichte zur Sicherheit des Skype-Updaters. Der Updater von Skype läuft unter dem Konto ...

Datenschutz

Behörden ignorieren Sicherheitsbedenken gegenüber Windows 10

Information von Penny.Cilin vor 1 TagDatenschutz8 Kommentare

Hallo, passend zum Thema Ablösung LIMUX in München ein Beitrag bei Heise (siehe Link folgend). Behörden ignorieren Sicherheitsbedenken gegenüber ...

Sicherheit
Information Security Hub Munich airport
Information von brammer vor 1 TagSicherheit

Hallo, Neues Center für Cyber Kriminalität am Münchener Flughafen brammer

Heiß diskutierte Inhalte
Exchange Server
Exchange Postfach Einbindung Betriebs-rat -Arzt, Bewerbung .
gelöst Frage von YellowcakeExchange Server22 Kommentare

Hey ich habe da mal eine Denksport Aufgabe bekommen Genutzt wird ein Exchange Server 2010. hier gibt es den ...

Datenschutz
Telematikinfrastruktur Erfahrungsaustausch
Frage von MOS6581Datenschutz12 Kommentare

Moin, unter meinen Kunden befinden sich auch einige Ärzte, welche sich künftig mit der Telematikinfrastruktur-Geschichte der Gematik herumärgern dürfen. ...

Windows Server
Delgegierte OU via RDP verwalten - Objektverwaltung zuweisen
gelöst Frage von TOAOICEWindows Server12 Kommentare

Hallo, ich habe folgendes Problem. Ich möchte in meiner Domäne (Server2016), einer Gruppe (OUAdmin) Berechtigungen auf die OU Test ...

Windows Server
Downgrade von Windows Server 2016 auf 2012 - Wie vorgehen?
Frage von EstefaniaWindows Server12 Kommentare

Guten Ich habe eine Frage an Erfahrene unter euch. Durch einen InPlace Upgrade wurde Windows Server 2012 auf die ...