Txt -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.138.200.66]

Правила раздела Visual Basic: Общие вопросы

Здесь обсуждаются вопросы по языку Visual Basic 1-6 (а так же по схожим языкам, как, например, PowerBASIC).
Вопросы по Visual Basic .NET (это который входит в состав Visual Studio 2002/2003/2005/2008+, для тех, кто не в курсе) обсуждаются в разделе .NET.

Обратите внимание:
1. Прежде чем начать новую тему или отправить сообщение, убедитесь, что Вы не нарушаете правил форума!
2. Обязательно воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали. Полезные ссылки приведены ниже.
3. Темы с просьбой выполнить какую-либо работу за автора в этом разделе не обсуждаются. Студенты, вам сюда: ПОМОЩЬ СТУДЕНТАМ!
4. Используйте теги [ code=vba ] ...текст программы... [ /code ] для выделения текста программы подсветкой.
5. Помните, здесь телепатов нет. Формулируйте свой вопрос максимально грамотно и чётко: Как правильно задавать вопросы
6. Запрещено отвечать в темы месячной (и более) давности, без веских на то причин.

Полезные ссылки:
user posted image

FAQ Сайта

FAQ Раздела user posted image

Кладовка

Наши Исходники user posted image

API-Guide

Поиск по Разделу user posted image

MSDN Library Online user posted image

Google

Ваше мнение о модераторах: user posted image

SCINER,

B.V.

Модераторы: SCINER, B.V.

Новое голосование

Txt

mozg	Сообщ. #1 , 24.12.01, 13:14
Unregistered	Подскажите как мне записать например 1.txt в строчку например name:test ... Т.е. фаил имеет такой вид: 2 w ee r name: 23 323 3 23 как мне конкретно в name: записать то что я хочу,,,,,????

Jin X	Сообщ. #2 , 25.12.01, 17:49
Законченный оптимист Профиль · PM Поощрения: 23 Dgm Рейтинг (т): 117	А что ты хочешь? Я не понял, тебе что надо... Записать в массив name значения 23,323,3,23 , а в test - 2,w,ee,r? Или записать в переменную name текст "2weername:23323323"? Или ещё что-то?

mozg	Сообщ. #3 , 27.12.01, 12:55
Unregistered	Например есть фаил...System.ini в нем строчка run= В эту строчку я хотел бы записать Path to proga... т.е. для её(автозапуска при старте)... Например если юзер кликает на cmd1.click() например.....

Armen	Сообщ. #4 , 28.12.01, 11:27
Unregistered	Dlja etogo est' funkcii dlja raboti s ini file-ami: GetPrivateProfileString i WritePrivateProfileString, esli khochesh mogu vislat' na mail.

PacTBop

Сообщ. #5 , 09.01.01, 11:43

Unregistered

Nate, kto es4o ne znaet ili kto es4o ne polu4il na mail ot Armena

Declare Function GetPrivateProfileString Lib "kernel32.dll" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Declare Function WritePrivateProfileString Lib "kernel32.dll" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long

Function GetINI(ByVal strItem As String, ByVal strKey As String, ByVal strFile As String) As String

Dim uname As String

Dim slength As Long

uname = Space(255)

If ((InStr(1, strItem, "[") <> 0) Or (InStr(1, strItem, "]") <> 0)) Then

strItem = Replace(strItem, "[", "&")

strItem = Replace(strItem, "]", "&")

End If

slength = GetPrivateProfileString(strItem, strKey, "", uname, 255, strFile)

uname = Left(uname, slength)

GetINI = uname

End Function

Function WriteINI(ByVal strItem As String, ByVal strKey As String, strVal As String, ByVal strFile As String)

Dim retval As Long

If ((InStr(1, strItem, "[") <> 0) Or (InStr(1, strItem, "]") <> 0)) Then

strItem = Replace(strItem, "[", "&")

strItem = Replace(strItem, "]", "&")

End If

retval = WritePrivateProfileString(strItem, strKey, strVal, strFile)

End Function

Сообщение отредактировано: vot - 14.06.06, 18:28

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0378 ] [ 16 queries used ] [ Generated: 27.04.24, 02:08 GMT ]