Fjern tekst fra streng

strTeksten = "#" & strTeksten & "#"
strTeksten = Replace(strTeksten, "KnupSkull#Russia", "")
strTeksten = Replace(strTeksten, "##", "#")
strTeksten = Mid(strTeksten, 2, Len(strTeksten) - 2)

Men hvad med at arbejde med et array i stedet?

Sidste Linie "Invalid procedure call or argument"

Hmm... Altså, jeg tilføjer brugere som joiner en chat til den liste... Her er scriptet som jeg bruger til at tilføje brugere med:

Public Function ChattersListAdd(User As String, Country As Variant)
If ChattersList = "" Then
    ChattersList = User & "#" & Country
Else
    ChattersList = ChattersList & "#" & User & "#" & Country
End If
End Function

Og sådan her ser mit "remove" script ud nu:

Public Function ChattersListRemove(User As String, Country As Variant)
    ChattersList = "#" & ChattersList & "#"
    ChattersList = Replace(ChattersList, User & "#" & Country, "")
    ChattersList = Replace(ChattersList, "##", "#")
    ChattersList = Mid(ChattersList, 2, Len(ChattersList) - 2)
End Function

Men hvis du har nogle bedre idéer til hvordan det skal gøres, er jeg fuldt ud åben overfor idéer... Jeg er ret ny i VB, og skal derfor lige lære det meste af det :D
Men jeg ved dog hvordan arrays fungerer :o)

Nej, nu virker det sq! :D
Takker dig mange gange for hjælpen!

Næh, tog jeg tog fejl... :(

Læs i hjælpen om:

Mid()
Left()
Right()

Trim()
LTrim()
RTrim()

InStr()
Split()
Replace()

Derefter kan du lave alle de manipulationer med textstrenge du måtte ønske!

Der er ikke nogen hjælp fil..? Den siger at jeg skal installere MSDN?

Hmm... Hvis jeg havde en funktion til at se om "BlaBla#China" var den første eller sidste i strengen, ville det gøre det nemt at fjerne med Replace(), for så ved jeg jo hvor mange #'er jeg skal flytte, og hvor fra...

Du kan ALT hvad du vil ved at kombinere ovenstående funktioner... Eneste begrænsning er din fantasi.

Hvis du ikke har hjælp/msdn, kan du bruge msdn på nettet.

Fx funktionen mid: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbenlr98/html/vafctmidx.asp

glemte Len(), Lcase(), Ucase(), og måske Chr() og Asc(), der også er nyttig.

Eksempel:

Denne kode finder de 3 bogstaver foran det bageste "w" i en sætning (hvad man så skal bruge det til):

Dim i as long
Dim strTest as string
strTest = "h h dg drtert w rdge w gtht w qwq"

if instr(1,strtest,"w") = 0 then
  msgbox "Der er intet w i din string"
exit sub
For i = len(strtest) to 1 step -1
  if mid(strtest,i,1) = "w" then
    msgbox "Tegnet foran sidste w er " & mid(strtekst,i-3,3)
    exit for
  end if
next i

Resultatet er noget i retning af "w q"

Bare et eksempel

Hm...
Ville det aller nemmeste ikke være at tjekke om det startede med den stump teks, eller sluttede med det?
for hvis at det er i midten kan jeg jo bare fjerne et # efter den stump tekst som skal fjernes....

Det må du bedst selv vide...

Det er faktisk lige meget nu, jeg er sprunget over til VB .NET i stedet for 6.0 :-)

Det løser næppe problemet. Men fornuftigt spring, hvis man ellers har muligheden.

Der findes nogle freeware programmer til at lave VB.NET med... SharpDev eller sådan noget..