ikke replace text men kopiere tekst

Nu skriver du i VBScript, er det det rigtige sted, er det ikke i Visul Basic du mener.
Hvilket program er det i

men ellers finder du den sådan, skal du have hjælp til at indlæse filen også ??

A="DenHer=SkalKopiers"
msgbox split(A,"=")(1)

Du burde gøre noget ved dine åbne spørgsmål

http://www.eksperten.dk/list.phtml?sort=&order=DESC&status_1=on&status_2=on&spm_creator=johncleese&spm_part=&spm_answer=&find=&engine=exp

heysan og tak for dit hurtige respons.
jeg vil lige prøve den af imorgen. nej jeg ved godt hvordan man indlæser filen. :)
også må jeg lige gå mine åbne spørgsmål igennem .. men jeg vender lige tilbage.

hmm jeg kan sku ikk rigtig få det til at du'.
den returnere ikke det den skal.. her er min kode



Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(FilserverSti & "\test.txt", ForReading)

product = "DenHer"

strText = objFile.ReadAll
If InStr(strText ,pruduct)Then

A=strText
msgbox split(A,"=")(1)
End If

min test.txt ser sådeleds ud.

[bla]
u3= 349034
DenHer=TEST 21
123456 ABC=DENEH1ER
9038490fjief=84934jke

script returnere:
349034
DenHer

men den skal retunere:
TEST 21

hva gør jeg forkert?

jeg fandt selv ud af det. men du får lige point for at guide mig ind på split funktionen

her er mit script


Const ForReading = 1
Dim soeg, objFSo, objFile, strText


Set objFSo = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile("C:\driverlist.inf", ForReading)


soeg = "test"
Do Until objFile.AtEndOfStream
strText = objFile.ReadLine
If InStr(strText, soeg) Then
arrText = Split(strText, "=")
strVariable = arrText(1)
Exit Do
End If
Loop

objFile.Close

strVariable = strVariable
MsgBox strVariable

så mangler lige et svar fra dig

et svar ;-))

kanon! Tak for det :-)