[RESOLVED] two questions

[DeCo]

ok yet another listbox question lol well i want to know how i can remove text before and after a certain letter number or word let me try to make it more clear i have a txt and in the txt theres a words and they have test$test i basically want to put in one text box to remove anything before $ and in another text box to remove anything after $ I would appreciate the help =)

[RobDog888]

You would use the Instr, Mid$, and/or Replace string functions.

[DeCo]

roddog you just got me confused lol

[lerroux]

use the code, dee-u gave you in the other thread... just play around with it, i think it's the same thing u r asking

[pnish]

If I understand what you're saying correctly, you could do something like this:

Dim words() As String
    
    words = Split(Text1.Text, "$")
    List1.AddItem words(0)
    List2.AddItem words(1)

So if Text1.Text = "test$text", the end result of this code would be that test is added to List1 and text is added to List2.

[DeCo]

no the one he gave me removes something specifc like "@" what i want to do is remove everything before or after "@"

[DeCo]

If I understand what you're saying correctly, you could do something like this:

Dim words() As String
    
    words = Split(Text1.Text, "$")
    List1.AddItem words(0)
    List2.AddItem words(1)

So if Text1.Text = "test$text", the end result of this code would be that test is added to List1 and text is added to List2.

no i have a txt file and when i run the programm its automatically added to the listbox and i have two text boxes one to remove anything before and one to remove anything after

[lerroux]

Private Sub Command1_Click()
Dim remove() As String
    
    remove = Split(Text1.Text, "$")
'to remove after    
Text2.Text = remove(0)
'to remove before
Text3.Text = remove(1)
End Sub

[RobDog888]

Dim str As String
Dim str1 As String
Dim str2 As String
 
str = "test$test"
str1 = Mid$(str, 1, InStr(1, str, "$") - 1)
str2 = Mid$(str, InStr(1, str, "$") + 1)
 
MsgBox str1
MsgBox str2

[pnish]

Posting a small sample of your text file would help. What do you mean 1 text box removes everything before the $ and the other text box removes everything after??

[lerroux]

for you to understand better:

Dim remove() As String
Private Sub Command1_Click()
 removebefore
End Sub
Public Sub removebefore()
    remove = Split(Text1.Text, "$")
    Text3.Text = remove(1)
End Sub
Public Sub removeafter()
    remove = Split(Text1.Text, "$")
    Text3.Text = remove(0)
End Sub
 
Private Sub Command2_Click()
removeafter
End Sub

[DeCo]

Ok i have 1 listbox and my text gets loaded there on form_load in one text box anything that i put could be "$" could be "C" it removes anything before that and in another text box it removes anything after whatever i put in the text box please tell me if you need me to clarify anything.

[lerroux]

hi, i still dont understad your post... could you post some of your code? but anyways samples above wll help you...

[DeCo]

pretty much what i got is the text loads to the listbox

Private Sub Form_Load()
Dim strFile As String
Dim strLine As String
Dim varData As Variant
Dim i As Integer
 
    strFile = App.Path & "\Text.txt"
    Open strFile For Input As #1
        strLine = Input(LOF(1), #1)
        varData = Split(strLine, vbNewLine, , vbTextCompare)
    Close #1
    
    For i = 0 To UBound(varData)
        List1.AddItem varData(i)
    Next i
 
    Label1.Caption = "Loaded list!"
    Label2.Caption = List1.ListCount
End Sub

[RobDog888]

Is the $ and C characters in this data being loaded into the listbox? How are you wanting to display the split data for each record?

[lerroux]

then you want to load list1's contents to two text boxes?

[pnish]

OK. That's the easy part, it's your two text boxes that are confusing me.
What exactly do you want to happen next? So you enter a $ (or whatever) into Text1, what happens then?

[DeCo]

i want two text boxes each with there own seperate function one removes everything before a certain text and one removes everything after a certain text but i want it to remove it from the listbox

[RobDog888]

Remove from the Selected listbox item or all items?

[DeCo]

OK. That's the easy part, it's your two text boxes that are confusing me.
What exactly do you want to happen next? So you enter a $ (or whatever) into Text1, what happens then?

then anything before $ gets deleted and in text2 anything after $ gets deteled

[pnish]

then anything before $ gets deleted and in text2 anything after $ gets deteled

Does the data in the list box get changed?
For example if the data in List1 was cat$dog would the end result be Text1.Text = 'cat' and Text2.Text = 'dog'??

[DeCo]

no the end result would be text1.text = $dog and for text2 it would be cat$

[lerroux]

if i understand you better, i think here's what you might need:

Dim remove() As String
Dim var, ctr
Private Sub Command1_Click()
For ctr = 0 To List1.ListCount
    
    var = var & List1.List(ctr)
Next
remove = Split(var, "$")
 
Text3.Text = remove(0)
Text2.Text = remove(1)
End Sub

[pnish]

no the end result would be text1.text = $dog and for text2 it would be cat$

Then something like this should work

Dim words() As String
    Dim SearchFor As String
 
    SearchFor = "$"
    words = Split(List1.Text, SearchFor)
    Text2.Text = words(0) & SearchFor
    Text1.Text = SearchFor & words(1)

[lerroux]

oh... yeah, i forgot about displaying the $ my bad... lol

[DeCo]

ok i got myself confused... theres two text boxes one removes things before what ever you put in text2 and one removes anything after what you put in text3 when you do this it will take affect in list1 because thats where the words are loaded.

[pnish]

ok i got myself confused...

You're not the only one LOL. Gotta go to work now, I'll check back later... good luck.

[DeCo]

Lol sorry im head is just out there today

[lerroux]

You're not the only one LOL.

same here... could you explain further please?

[DeCo]

Sure i have a txt file named text.txt when i load the programm all the text is loaded to a listbox i just want to be able to remove things before and after a letter symbol or word example in my txt file name theres these folllowing words
123$124
abc$dfg i decide i dont want the text before $ so i go to text box1 and put $ text1 removes anythingbefore $ if i want to remove after $ i go to text2 and type in $ and it removes everything after of course "$" could be "C" or it could be "Cell"

[Tamgovb]

Welcom

Or these contained words in ListBox they have the same amount the characters or not?
This is important to define the criterion of choice, it will be very hard if words will be different length.

I think, that then you will need additionally several the Optionbuttons to specifying your requirements. Your programme will not know how much the characters you want a cut from left and from right side and what you want to choose with centre.

so it seems for me i only loudly i think

i greet

[srisa]

This is your requirement as I understand.
1 - All the lines of your textfile are loaded into your listbox.
2 - If you enter a character in Textbox1 : All the items in the listbox should be changed so that characters before the character you typed in are removed.
3 - If you enter a character in Textbox2 : All the items in the listbox should be changed so that after before the character you typed in are removed.
Here is the code based on above assumptions :
After you type in a character in textbox1 call this sub

dim ipos as integer
dim stemp as string
dim lcount as long
 
for lcount = 0 to listbox.listcount - 1
  stemp=listbox.list(lcount)
  ipos=instr(stemp,textbox1.text)
  stemp=mid$(stemp,ipos)
  listbox.list(lcount)=stemp
next lcount

This is the code for textbox2 :

dim ipos as integer
dim stemp as string
dim lcount as long
 
for lcount = 0 to listbox.listcount - 1
  stemp=listbox.list(lcount)
  ipos=instr(stemp,textbox2.text)
  stemp=left$(stemp,1,ipos+len(textbox2.text) - 1 )
  listbox.list(lcount)=stemp
next lcount

I assume you want the changes to be made to your textfile. For this in the form_unload event : Open your textfile for output and write all the contents of the listbox into it.

[Tamgovb]

Sorry...so with curiosity, those codes for what event are?
For Change nothing does and code for TextBox2 displaying a mistake in line:

stemp = Left$(stemp, 1, ipos + Len(Textbox2.Text) - 1)

>> Type-declaration character does not match declared data type <<

I do something wrong maybe

[srisa]

Change
stemp=left$(stemp,1,ipos+len(textbox2.text)-1)
to
stemp=left$(stemp,ipos+len(textbox2.text)-1)


After typing the character in the textbox , what are you doing to run the code? I mean clicking a command button or something like that?
Add the code to the lostfocus events of the textboxes and press tab after entering the data in the textbox.

[DeCo]

thank you all for your great help!