Txt - Форум на исходниках

WWW.ИСХОДНИКИ.РУ cpp.sources.ru

java.sources.ru web.sources.ru soft.sources.ru

jdbc.sources.ru asp.sources.ru api.sources.ru

  Форум на исходниках
  Visual Basic
  Txt
СПРОСИТЬ  ОТВЕТИТЬ
профайл | регистрация | faq

Автор Тема:   Txt

mozg опубликован 24-12-2001 16:14 MSK
Подскажите как мне записать например 1.txt в строчку например name:test ...
Т.е. фаил имеет такой вид:
2
w
ee
r
name:
23
323
3
23
как мне конкретно в name: записать то что я хочу,,,,,????
7in опубликован 25-12-2001 20:49 MSK
А что ты хочешь? :)
Я не понял, тебе что надо...
Записать в массив name значения 23,323,3,23 , а в test - 2,w,ee,r? Или записать в переменную name текст "2weername:23323323"? Или ещё что-то?
mozg опубликован 27-12-2001 15:55 MSK
Например есть фаил...System.ini
в нем строчка run=
В эту строчку я хотел бы записать Path to proga...
т.е. для её(автозапуска при старте)...
Например если юзер кликает на cmd1.click() например.....
Armen опубликован 28-12-2001 14:27 MSK
Dlja etogo est' funkcii dlja raboti s ini file-ami:
GetPrivateProfileString i WritePrivateProfileString, esli khochesh mogu vislat' na mail.
mozg опубликован 02-01-2001 12:46 MSK
Помогите с этими функциями дайте примерчик
Armen опубликован 03-01-2001 10:23 MSK
Primer vislal na mail.
Sys опубликован 03-01-2001 20:32 MSK
Armen а ты не мог бы мне тоже примерчик кинуть на ящик...........Заранее благодарен
Armen опубликован 04-01-2001 08:58 MSK
mozg, tvoj mail vrode ne rabotaet.Kuda vislat' primer?
AlexR опубликован 04-01-2001 09:04 MSK
Шли мне.
aker13 опубликован 07-01-2001 11:32 MSK
моя тоже хотеть однако! высылай друг!!
Sys опубликован 07-01-2001 12:35 MSK
Киньте мне кто нибудь plz/////я случайно стер на HDD////////
PacTBop опубликован 09-01-2001 14:43 MSK
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
СПРОСИТЬ  ОТВЕТИТЬ
Перейти:

E-mail | WWW.ИСХОДНИКИ.RU

Powered by: Ultimate Bulletin Board, Freeware Version 5.10a
Purchase our Licensed Version- which adds many more features!
© Infopop Corporation (formerly Madrona Park, Inc.), 1998 - 2000.

Автор	Тема: Txt
mozg	опубликован 24-12-2001 16:14 MSK Подскажите как мне записать например 1.txt в строчку например name:test ... Т.е. фаил имеет такой вид: 2 w ee r name: 23 323 3 23 как мне конкретно в name: записать то что я хочу,,,,,????
7in	опубликован 25-12-2001 20:49 MSK А что ты хочешь? :) Я не понял, тебе что надо... Записать в массив name значения 23,323,3,23 , а в test - 2,w,ee,r? Или записать в переменную name текст "2weername:23323323"? Или ещё что-то?
mozg	опубликован 27-12-2001 15:55 MSK Например есть фаил...System.ini в нем строчка run= В эту строчку я хотел бы записать Path to proga... т.е. для её(автозапуска при старте)... Например если юзер кликает на cmd1.click() например.....
Armen	опубликован 28-12-2001 14:27 MSK Dlja etogo est' funkcii dlja raboti s ini file-ami: GetPrivateProfileString i WritePrivateProfileString, esli khochesh mogu vislat' na mail.
mozg	опубликован 02-01-2001 12:46 MSK Помогите с этими функциями дайте примерчик
Armen	опубликован 03-01-2001 10:23 MSK Primer vislal na mail.
Sys	опубликован 03-01-2001 20:32 MSK Armen а ты не мог бы мне тоже примерчик кинуть на ящик...........Заранее благодарен
Armen	опубликован 04-01-2001 08:58 MSK mozg, tvoj mail vrode ne rabotaet.Kuda vislat' primer?
AlexR	опубликован 04-01-2001 09:04 MSK Шли мне.
aker13	опубликован 07-01-2001 11:32 MSK моя тоже хотеть однако! высылай друг!!
Sys	опубликован 07-01-2001 12:35 MSK Киньте мне кто нибудь plz/////я случайно стер на HDD////////
PacTBop	опубликован 09-01-2001 14:43 MSK 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