---
title: "Markera text?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/82029-markera-text"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "saw"
published: "2003-07-15T12:32:03.000Z"
updated: "2003-07-16T10:20:01.000Z"
replies: 1
views: 172
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/82029-markera-text"
---

# Markera text?

## #1 — saw, 2003-07-15T12:32Z

Hur skall jag kunna markera en vis text i en textruta?
Så här är det:
Jag replaca en viss text i text1.

```
Text2 kommer då att se ut så här efter ett antal operationer:
MultiLang_TEXT1    "En Bra TestSida" 
  
MultiLang_TEXT2    "Känn Dig välkommen till Användarföreningens hemsida." 
 
```

 

För varje replace, så lägger jag in en siffra i list1, i detta fallet ser list ut:
1 
2 
 

Genom en split så kan jag få tag på den texten som jag vill ha:

```
Dim texten() As String, j As Integer 
j = List1.ListIndex ' + 1 
   texten = Split(Text2.text, " ") 
   Label1.Caption = Replace("Visa inlaggd multilang nr: ", vbTab, "") & j + 1 
   Info.Caption = Replace(texten(j), vbTab, "")
```

 

Jag behöver alltså bara klicka i list1 så har jag den texten jag vil ha.

Nu skulle jag vilja att just den texten också var markerad i text2.
Är detta möjligt? 
 :q

Permalänk: https://www.webforum.nu/p/82029

## #2 — saw, 2003-07-16T10:20Z

Jag hittade en kodsnutt som  gör som jag ville:

```
Dim s as string,l as long
s = "MultiLang_TEXT" & j + 1 
   
   l = InStr(Text2.text, s) 
   If l = 0 Then ' 1st spot is string is 1. 0 means "not found" 
       MsgBox "The text was not found." 
   Else 
       Text2.SetFocus 
       Text2.SelStart = l - 1 ' 1st spot for selected text is numbered 0 
       Text2.SelLength = Len(Info.Caption)-1    
End If
```

Nu tror jag inte att det kan bli bättre

Permalänk: https://www.webforum.nu/p/1113140

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/82029-markera-text