Fügen Sie ein Zeichen in einen string am angegebenen index

Also ich habe ein array mit Indizes von Zeichen in einem string möchte ich einfügen eines Zeichens vor, wie ich einfach einfügen eines Zeichens vor jeder index? So zum Beispiel:

"The big brown fox ... "

den Positionen
array = 4,9

den Charakter einfügen ','

dem Ergebnis: "Die, big, brown fox ..."

Gibt es eine Methode, das so ein einfach-Dienstprogramm?

String.insert(originalStr, index, stringToInsert) zum Beispiel???

Update

Dem Beispiel, das ich zur Verfügung gestellt, ist nur ein Beispiel für die Implementierung. Ich kann auch wollen, um Folgendes zu tun:

orginalText = "ein text mit Zeichen wie ; : } <"

in der ich wollen kann, zum einfügen von "\" mit dem Ergebnis:

Ergebnis = "ein text mit Zeichen wie \; : } \<"

  • Classic ASP, oder ASP.NET?
  • classic asp, sorry
InformationsquelleAutor | 2009-08-05
  1. 2

    Dies ist hacky und ein wenig gehetzt, aber versuchen Sie dies:

    Dim sString: sString = "the something something"
Dim position: position = 1
Dim character: character = "F"
if position = 0 then
    sString = character + Left(Mid(sString, 1), Len(sString) + 1)
else
    sString = Left(sString, position) + character + Left(Mid(sString, position), Len(sString) - position + 1)
end if
    • mit einer sehr geringfügigen zwicken, hat den job! Dank einer Tonne
    • Weiß nicht, warum die else Anweisung wiederholen character für zwei mal... Trotzdem, vielen Dank für das teilen!
    InformationsquelleAutor Jon
  2. 1

    Unter der Annahme, dass die Indizes sortiert werden, Schleife rückwärts und einfügen der einzelnen Zeichen.

    For lngPos = UBound(alngPositions) to 0 step -1
   strText = Left(strText, alngPositions(lngPos) - 1) + "," + Mid(strText, alngPositions(lngPos))
Next

    Beachten Sie, dass bei deinen Beispiel-Daten wird es natürlich produzieren die Zeichenfolge "Die, big ,brown fox ... ". Die Indizes sind nicht pre-Hinzugefügt, um Ihre position entsprechend der position in der resultierenden Zeichenfolge, sind Sie?

    Edit:

    Eine alternative, die wäre schneller für große Zeichenfolgen aufteilen der Zeichenfolge an den index-Positionen in ein array, dann kommen die Streicher mit Kommas dazwischen:

    Dim astrSubstrings(UBound(alngPositions) + 1)
lngLeft = 1
For lngPos = 0 to UBound(alngPositions)
   astrSubstrings(lngPos) = Mid(strText, lngLeft, alngPositions(lngPos) - lngLeft)
   lngLeft = alngPositions(lngPos)
Next
astrSubstrings(UBound(alngPositions) + 1) = Mid(strText, lngLeft)
strText = Join(astrSubstrings, ",")
    InformationsquelleAutor Guffa
  3. 0

    Ich bin nicht einer klassischen ASP-Benutzer, aber Sie können substring um den Teil der Zeichenfolge bis zu dem index, in dem Sie haben, um das Zeichen einzufügen, substring, der andere Teil der saite, und diese zwei Teile, und erstellen Sie eine neue Zeichenfolge zu tun part1 & "," & part2.

    Hoffe, es hilft.

    InformationsquelleAutor Sebastian
  4. 0

    Sollten Sie in der Lage sein, die Verwendung der split-Funktion basiert auf der Raum zwischen den Worten - das liefert ein array der Wörter. Dann setzen Sie ein Komma nach jedem Element in dem array, und Sie können, um die notwendigen Zeichenfolge, die Sie suchen. Beispiel hier http://www.w3schools.com/VBscript/func_split.asp

    • meine intention ist nicht Platz, Komma vor dem Leerzeichen, aber zum einfügen eines Zeichens an einer bestimmten position in einer Zeichenkette. das war lediglich ein Beispiel.
    • ok hab es... Mitte ist der Weg zu gehen dann.
    InformationsquelleAutor OpenSource
  5. 0

    Es ist schon eine Weile her, aber Mid(str, start, [end]) wäre der Weg zu gehen.

    InformationsquelleAutor mattl
Schreibe einen Kommentar